Make compat alias ede-toplevel-project-or-nil obsolete

* lisp/cedet/ede/files.el (ede-toplevel-project-or-nil): Make
compat alias obsolete.

diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el
index b8acb192c17b48e9fcb96420f436d17540cf55a8..e44ddea32f68f8a6d52110db816c66736f466138 100644 (file)
--- a/lisp/cedet/ede/files.el
+++ b/lisp/cedet/ede/files.el
@@ -340,7 +340,7 @@ Optional FORCE means to ignore the hash of known directories."
 ;;
 ;; These utilities will identify the "toplevel" of a project.
 ;;
-;; NOTE: These two -toplevel- functions return a directory even though
+;; NOTE: This -toplevel- function returns a directory even though
 ;;       the function name implies a project.
 
 (defun ede-toplevel-project (dir)
@@ -365,8 +365,6 @@ If DIR is not part of a project, return nil."
 
      (t nil))))
 
-(defalias 'ede-toplevel-project-or-nil #'ede-toplevel-project)
-
 ;;; DIRECTORY CONVERSION STUFF
 ;;
 (cl-defmethod ede-convert-path ((this ede-project) path)
@@ -535,6 +533,7 @@ Argument DIR is the directory to trim upwards."
        nil
       fnd)))
 
+(define-obsolete-function-alias 'ede-toplevel-project-or-nil #'ede-toplevel-project "29.1")
 
 (provide 'ede/files)
 

diff --git a/lisp/cedet/ede/system.el b/lisp/cedet/ede/system.el
index 2da16b37d7292a1397431b3a8d25bbf34f60737c..b4fc95c6073ea1321935757b56346d8bc09a305f 100644 (file)
--- a/lisp/cedet/ede/system.el
+++ b/lisp/cedet/ede/system.el
@@ -133,7 +133,7 @@ Download tramp, and use /r:machine: for names on remote sites w/out FTP access."
 (defun ede-vc-project-directory ()
   "Run `vc-dir' on the current project."
   (interactive)
-  (let ((top (ede-toplevel-project-or-nil default-directory)))
+  (let ((top (ede-toplevel-project default-directory)))
     (vc-dir top nil)))
 
 (provide 'ede/system)