diff options
Diffstat (limited to 'lisp/vc/ediff-util.el')
| -rw-r--r-- | lisp/vc/ediff-util.el | 22 |
1 files changed, 9 insertions, 13 deletions
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index 4a84c1ecd9c..f56d31c7136 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el | |||
| @@ -240,18 +240,16 @@ to invocation.") | |||
| 240 | startup-hooks setup-parameters | 240 | startup-hooks setup-parameters |
| 241 | &optional merge-buffer-file) | 241 | &optional merge-buffer-file) |
| 242 | (run-hooks 'ediff-before-setup-hook) | 242 | (run-hooks 'ediff-before-setup-hook) |
| 243 | ;; ediff-convert-standard-filename puts file names in the form appropriate | 243 | ;; convert-standard-filename puts file names in the form appropriate |
| 244 | ;; for the OS at hand. | 244 | ;; for the OS at hand. |
| 245 | (setq file-A (ediff-convert-standard-filename (expand-file-name file-A))) | 245 | (setq file-A (convert-standard-filename (expand-file-name file-A))) |
| 246 | (setq file-B (ediff-convert-standard-filename (expand-file-name file-B))) | 246 | (setq file-B (convert-standard-filename (expand-file-name file-B))) |
| 247 | (if (stringp file-C) | 247 | (if (stringp file-C) |
| 248 | (setq file-C | 248 | (setq file-C (convert-standard-filename (expand-file-name file-C)))) |
| 249 | (ediff-convert-standard-filename (expand-file-name file-C)))) | ||
| 250 | (if (stringp merge-buffer-file) | 249 | (if (stringp merge-buffer-file) |
| 251 | (progn | 250 | (progn |
| 252 | (setq merge-buffer-file | 251 | (setq merge-buffer-file |
| 253 | (ediff-convert-standard-filename | 252 | (convert-standard-filename (expand-file-name merge-buffer-file))) |
| 254 | (expand-file-name merge-buffer-file))) | ||
| 255 | ;; check the directory exists | 253 | ;; check the directory exists |
| 256 | (or (file-exists-p (file-name-directory merge-buffer-file)) | 254 | (or (file-exists-p (file-name-directory merge-buffer-file)) |
| 257 | (error "Directory %s given as place to save the merge doesn't exist" | 255 | (error "Directory %s given as place to save the merge doesn't exist" |
| @@ -3069,10 +3067,8 @@ Hit \\[ediff-recenter] to reset the windows afterward." | |||
| 3069 | 3067 | ||
| 3070 | 3068 | ||
| 3071 | ;; for compatibility | 3069 | ;; for compatibility |
| 3072 | (defmacro ediff-minibuffer-with-setup-hook (fun &rest body) | 3070 | (define-obsolete-function-alias 'ediff-minibuffer-with-setup-hook |
| 3073 | `(if (fboundp 'minibuffer-with-setup-hook) | 3071 | #'minibuffer-with-setup-hook "28.1") |
| 3074 | (minibuffer-with-setup-hook ,fun ,@body) | ||
| 3075 | ,@body)) | ||
| 3076 | 3072 | ||
| 3077 | ;; This is adapted from a similar function in `emerge.el'. | 3073 | ;; This is adapted from a similar function in `emerge.el'. |
| 3078 | ;; PROMPT should not have a trailing ': ', so that it can be modified | 3074 | ;; PROMPT should not have a trailing ': ', so that it can be modified |
| @@ -3101,7 +3097,7 @@ Hit \\[ediff-recenter] to reset the windows afterward." | |||
| 3101 | (and default-file (list default-file)) | 3097 | (and default-file (list default-file)) |
| 3102 | default-dir))) | 3098 | default-dir))) |
| 3103 | f) | 3099 | f) |
| 3104 | (setq f (ediff-minibuffer-with-setup-hook | 3100 | (setq f (minibuffer-with-setup-hook |
| 3105 | (lambda () (when defaults | 3101 | (lambda () (when defaults |
| 3106 | (setq minibuffer-default defaults))) | 3102 | (setq minibuffer-default defaults))) |
| 3107 | (read-file-name | 3103 | (read-file-name |
| @@ -3134,7 +3130,7 @@ Hit \\[ediff-recenter] to reset the windows afterward." | |||
| 3134 | ;; Also, save buffer from START to END in the file. | 3130 | ;; Also, save buffer from START to END in the file. |
| 3135 | ;; START defaults to (point-min), END to (point-max) | 3131 | ;; START defaults to (point-min), END to (point-max) |
| 3136 | (defun ediff-make-temp-file (buff &optional prefix given-file start end) | 3132 | (defun ediff-make-temp-file (buff &optional prefix given-file start end) |
| 3137 | (let* ((p (ediff-convert-standard-filename (or prefix "ediff"))) | 3133 | (let* ((p (convert-standard-filename (or prefix "ediff"))) |
| 3138 | (short-p p) | 3134 | (short-p p) |
| 3139 | (coding-system-for-write ediff-coding-system-for-write) | 3135 | (coding-system-for-write ediff-coding-system-for-write) |
| 3140 | f short-f) | 3136 | f short-f) |