[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
arg
---
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'.")
;;;###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)))