diff options
Diffstat (limited to 'lisp/vc/ediff-ptch.el')
| -rw-r--r-- | lisp/vc/ediff-ptch.el | 35 |
1 files changed, 16 insertions, 19 deletions
diff --git a/lisp/vc/ediff-ptch.el b/lisp/vc/ediff-ptch.el index d52910efceb..7622cf4c196 100644 --- a/lisp/vc/ediff-ptch.el +++ b/lisp/vc/ediff-ptch.el @@ -128,18 +128,19 @@ You probably don't want to change that, unless you are using an obscure patch program." :type 'regexp) -;; The buffer of the patch file. Local to control buffer. -(ediff-defvar-local ediff-patchbufer nil "") +(ediff-defvar-local ediff-patchbufer nil + "The buffer of the patch file. Local to control buffer.") -;; The buffer where patch displays its diagnostics. -(ediff-defvar-local ediff-patch-diagnostics nil "") +(ediff-defvar-local ediff-patch-diagnostics nil + "The buffer where patch displays its diagnostics.") -;; Map of patch buffer. Has the form: -;; ((filename1 marker1 marker2) (filename2 marker1 marker2) ...) -;; where filenames are files to which patch would have applied the patch; -;; marker1 delimits the beginning of the corresponding patch and marker2 does -;; it for the end. -(ediff-defvar-local ediff-patch-map nil "") +(ediff-defvar-local ediff-patch-map nil + "Map of patch buffer. +Has the form: + ((filename1 marker1 marker2) (filename2 marker1 marker2) ...) +where filenames are files to which patch would have applied the patch; +marker1 delimits the beginning of the corresponding patch and marker2 does +it for the end.") ;; strip prefix from filename ;; returns /dev/null, if can't strip prefix @@ -502,15 +503,11 @@ are two possible targets for this %spatch. However, these files do not exist." patch-file-name) (setq patch-file-name (read-file-name - (format "Patch is in file%s: " - (cond ((and buffer-file-name - (equal (expand-file-name dir) - (file-name-directory buffer-file-name))) - (concat - " (default " - (file-name-nondirectory buffer-file-name) - ")")) - (t ""))) + (format-prompt "Patch is in file" + (and buffer-file-name + (equal (expand-file-name dir) + (file-name-directory buffer-file-name)) + (file-name-nondirectory buffer-file-name))) dir buffer-file-name 'must-match)) (if (file-directory-p patch-file-name) (error "Patch file cannot be a directory: %s" patch-file-name) |