aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/vc/ediff-util.el
diff options
context:
space:
mode:
authorVibhav Pant2020-08-21 14:04:35 +0530
committerVibhav Pant2020-08-21 14:04:35 +0530
commitf0f8d7b82492e741950c363a03b886965c91b1b0 (patch)
tree19b716830b1ebabc0d7d75949c4e6800c0f104ad /lisp/vc/ediff-util.el
parent9e64a087c4d167e7ec1c4e22bea3e6af53b563de (diff)
parentc818c29771d3cb51875643b2f6c894073e429dd2 (diff)
downloademacs-feature/native-comp-macos-fixes.tar.gz
emacs-feature/native-comp-macos-fixes.zip
Merge branch 'feature/native-comp' into feature/native-comp-macos-fixesfeature/native-comp-macos-fixes
Diffstat (limited to 'lisp/vc/ediff-util.el')
-rw-r--r--lisp/vc/ediff-util.el22
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)