From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 20 Dec 2023 22:50:48 +0000 (-0500)
Subject: * lisp/cedet/semantic/db.el (semanticdb-create-database): Remove obsolete arg
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7275cecdf95d805adc4676462f2d924883be0047;p=emacs.git

* lisp/cedet/semantic/db.el (semanticdb-create-database): Remove obsolete arg
---

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index 319d1d1b91c..b2f9c1bd52d 100644
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -408,6 +408,7 @@ right of \"%x\", trailing zero units are not output."
   "Formatting used by the function `seconds-to-string'.")
 ;;;###autoload
 (defun seconds-to-string (delay)
+  ;; FIXME: There's a similar (tho fancier) function in mastodon.el!
   "Convert the time interval in seconds to a short string."
   (cond ((> 0 delay) (concat "-" (seconds-to-string (- delay))))
         ((= 0 delay) "0s")
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index 0c78493542f..e8c008cb8c6 100644
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -393,9 +393,7 @@ If a database for DIRECTORY has already been created, return it.
 If DIRECTORY doesn't exist, create a new one."
   (let ((db (semanticdb-directory-loaded-p directory)))
     (unless db
-      (setq db (semanticdb-project-database
-		(file-name-nondirectory directory)
-		:tables nil))
+      (setq db (semanticdb-project-database :tables nil))
       ;; Set this up here.   We can't put it in the constructor because it
       ;; would be saved, and we want DB files to be portable.
       (setf (slot-value db 'reference-directory) (file-truename directory)))