From 7275cecdf95d805adc4676462f2d924883be0047 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 20 Dec 2023 17:50:48 -0500 Subject: [PATCH] * 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))) -- 2.39.5