mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 19:00:55 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* lisp/cedet/ede/files.el (ede-toplevel-project-or-nil): Make
compat alias obsolete.
This commit is contained in:
Stefan Kangas 2022-08-06 10:32:24 +02:00
parent 2ac3e3eda5
commit e8613adb0d
2 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/cedet/ede/files.el
View file

@ -340,7 +340,7 @@ Optional FORCE means to ignore the hash of known directories."
;; ;;
;; These utilities will identify the "toplevel" of a project. ;; 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. ;; the function name implies a project.
(defun ede-toplevel-project (dir) (defun ede-toplevel-project (dir)
@ -365,8 +365,6 @@ If DIR is not part of a project, return nil."
(t nil)))) (t nil))))
(defalias 'ede-toplevel-project-or-nil #'ede-toplevel-project)
;;; DIRECTORY CONVERSION STUFF ;;; DIRECTORY CONVERSION STUFF
;; ;;
(cl-defmethod ede-convert-path ((this ede-project) path) (cl-defmethod ede-convert-path ((this ede-project) path)
@ -535,6 +533,7 @@ Argument DIR is the directory to trim upwards."
nil nil
fnd))) fnd)))
(define-obsolete-function-alias 'ede-toplevel-project-or-nil #'ede-toplevel-project "29.1")
(provide 'ede/files) (provide 'ede/files)

2
lisp/cedet/ede/system.el
View file

@ -133,7 +133,7 @@ Download tramp, and use /r:machine: for names on remote sites w/out FTP access."
(defun ede-vc-project-directory () (defun ede-vc-project-directory ()
"Run `vc-dir' on the current project." "Run `vc-dir' on the current project."
(interactive) (interactive)
(let ((top (ede-toplevel-project-or-nil default-directory))) (let ((top (ede-toplevel-project default-directory)))
(vc-dir top nil))) (vc-dir top nil)))
(provide 'ede/system) (provide 'ede/system)