[Top][All Lists]

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

master 7275cecdf95 3/3: * lisp/cedet/semantic/db.el (semanticdb-create-d

From: Stefan Monnier
Subject: master 7275cecdf95 3/3: * lisp/cedet/semantic/db.el (semanticdb-create-database): Remove obsolete arg
Date: Wed, 20 Dec 2023 17:51:39 -0500 (EST)

branch: master
commit 7275cecdf95d805adc4676462f2d924883be0047
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/cedet/semantic/db.el (semanticdb-create-database): Remove obsolete 
 lisp/calendar/time-date.el | 1 +
 lisp/cedet/semantic/db.el  | 4 +---
 2 files changed, 2 insertions(+), 3 deletions(-)

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'.")
 (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)))

reply via email to

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