[Emacs-diffs] Changes to emacs/lisp/vc-dispatcher.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/05/17 22:55:57

Index: vc-dispatcher.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-dispatcher.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- vc-dispatcher.el    17 May 2008 20:11:43 -0000      1.52
+++ vc-dispatcher.el    17 May 2008 22:55:57 -0000      1.53
@@ -86,10 +86,10 @@
 ;; The interface:
 ;;
 ;; The main interface to the lower level is vc-do-command.  This launches a
-;; comand, synchronously or asynchronously, making the output available
+;; command, synchronously or asynchronously, making the output available
 ;; in a command log buffer.  Two other functions, (vc-start-annotation) and
 ;; (vc-finish-logentry), allow you to associate a command closure with an
-;; abbotation buffer so that when the user confirms the comment the closure
+;; annotation buffer so that when the user confirms the comment the closure
 ;; is run (with the comment as part of its context).
 ;;
 ;; The interface to the upper level has the two main entry points (vc-dir)
@@ -305,7 +305,7 @@
                  (if (listp file-or-list) file-or-list (list file-or-list))))
         (full-command
          ;; What we're doing here is preparing a version of the command
-         ;; for display in a debug-progess message.  If it's fewer than
+         ;; for display in a debug-progress message.  If it's fewer than
          ;; 20 characters display the entire command (without trailing
          ;; newline).  Otherwise display the first 20 followed by an ellipsis.
          (concat (if (string= (substring command -1) "\n")
@@ -356,7 +356,7 @@
                (vc-exec-after
                 `(if vc-command-messages
                      (message "Running %s in background... done" 
',full-command))))
-           ;; Run synchrously
+           ;; Run synchronously
            (when vc-command-messages
              (message "Running %s in foreground..." full-command))
            (let ((buffer-undo-list t))
@@ -371,7 +371,7 @@
              (error "Running %s...FAILED (%s)" full-command
                     (if (integerp status) (format "status %d" status) 
status))))
          ;; We're done.  But don't emit a status message if running
-         ;; asychronously, it would just mislead.
+         ;; asynchronously, it would just mislead.
          (if (and vc-command-messages (not (eq okstatus 'async)))
              (message "Running %s...OK = %d" full-command status)))
        (vc-exec-after
@@ -751,7 +751,7 @@
     map)
   "Menu for dispatcher status")
 
-;; This is used to that client modes can add mode-specific menu
+;; This is used so that client modes can add mode-specific menu
 ;; items to vc-dir-menu-map.
 (defun vc-dir-menu-map-filter (orig-binding)
   (when (and (symbolp orig-binding) (fboundp orig-binding))
@@ -1369,14 +1369,14 @@
 within them.
 
 If we're in a directory display, the fileset is the list of marked files (if
-there is one) else the file on the curreent line.  If not in a directory
+there is one) else the file on the current line.  If not in a directory
 display, but the current buffer visits a file, the fileset is a singleton
 containing that file.  Otherwise, throw an error."
   (let ((selection
          (cond
           ;; Browsing with vc-dir
           ((vc-dispatcher-browsing)
-          ;; If no files are marked, temporatrily mark current file
+          ;; If no files are marked, temporarily mark current file
           ;; and choose on that basis (so we get subordinate files)
           (if (not (vc-dir-marked-files))
                 (prog2