emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master e0e3fe4 8/9: Remove some compat code from ediff


From: Lars Ingebrigtsen
Subject: master e0e3fe4 8/9: Remove some compat code from ediff
Date: Tue, 18 Aug 2020 06:12:39 -0400 (EDT)

branch: master
commit e0e3fe4e7de5395a042e8a14d95ba78b0045789f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Remove some compat code from ediff
    
    * lisp/vc/ediff-init.el (ediff-convert-standard-filename): Make
    obsolete.
    * lisp/vc/ediff-util.el (ediff-setup): Adjust callers.
    (ediff-make-temp-file): Ditto.
---
 lisp/vc/ediff-init.el |  5 ++---
 lisp/vc/ediff-util.el | 14 ++++++--------
 2 files changed, 8 insertions(+), 11 deletions(-)

diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el
index f5177bc..04926af 100644
--- a/lisp/vc/ediff-init.el
+++ b/lisp/vc/ediff-init.el
@@ -1573,9 +1573,8 @@ This default should work without changes."
 
 
 (defun ediff-convert-standard-filename (fname)
-  (if (fboundp 'convert-standard-filename)
-      (convert-standard-filename fname)
-    fname))
+  (declare (obsolete convert-standard-filename "28.1"))
+  (convert-standard-filename fname))
 
 (define-obsolete-function-alias 'ediff-with-syntax-table
   #'with-syntax-table "27.1")
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index e31f43d..f56d31c 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -240,18 +240,16 @@ to invocation.")
                             startup-hooks setup-parameters
                             &optional merge-buffer-file)
   (run-hooks 'ediff-before-setup-hook)
-  ;; ediff-convert-standard-filename puts file names in the form appropriate
+  ;; convert-standard-filename puts file names in the form appropriate
   ;; for the OS at hand.
-  (setq file-A (ediff-convert-standard-filename (expand-file-name file-A)))
-  (setq file-B (ediff-convert-standard-filename (expand-file-name file-B)))
+  (setq file-A (convert-standard-filename (expand-file-name file-A)))
+  (setq file-B (convert-standard-filename (expand-file-name file-B)))
   (if (stringp file-C)
-      (setq file-C
-           (ediff-convert-standard-filename (expand-file-name file-C))))
+      (setq file-C (convert-standard-filename (expand-file-name file-C))))
   (if (stringp merge-buffer-file)
       (progn
        (setq merge-buffer-file
-             (ediff-convert-standard-filename
-              (expand-file-name merge-buffer-file)))
+             (convert-standard-filename (expand-file-name merge-buffer-file)))
        ;; check the directory exists
        (or (file-exists-p (file-name-directory merge-buffer-file))
            (error "Directory %s given as place to save the merge doesn't exist"
@@ -3132,7 +3130,7 @@ Hit \\[ediff-recenter] to reset the windows afterward."
 ;; Also, save buffer from START to END in the file.
 ;; START defaults to (point-min), END to (point-max)
 (defun ediff-make-temp-file (buff &optional prefix given-file start end)
-  (let* ((p (ediff-convert-standard-filename (or prefix "ediff")))
+  (let* ((p (convert-standard-filename (or prefix "ediff")))
         (short-p p)
         (coding-system-for-write ediff-coding-system-for-write)
         f short-f)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]