Function: vc-user-edit-command

vc-user-edit-command is a byte-compiled function defined in vc-dispatcher.el.gz.

Signature

(vc-user-edit-command COMMAND FILE-OR-LIST FLAGS)

Documentation

Prompt the user to edit VC command COMMAND and FLAGS.

Intended to be used as the value of vc-filter-command-function.

Source Code

;; Defined in /usr/src/emacs/lisp/vc/vc-dispatcher.el.gz
(defun vc-user-edit-command (command file-or-list flags)
  "Prompt the user to edit VC command COMMAND and FLAGS.
Intended to be used as the value of `vc-filter-command-function'."
  (let* ((files-separator-p (string= "--" (car (last flags))))
         (edited (split-string-and-unquote
                  (read-shell-command
                   (format "Edit VC command & arguments%s: "
                           (if file-or-list
                               " (files list to be appended)"
                             ""))
                   (concat (combine-and-quote-strings
                            (cons command (remq nil (if files-separator-p
                                                        (butlast flags)
                                                      flags))))
                           " ")))))
    (list (car edited) file-or-list
          (nconc (cdr edited) (and files-separator-p '("--"))))))