mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2023-12-20 17:50:48 -05:00
parent 40dafa9af0
commit 7275cecdf9
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/calendar/time-date.el
View File

@ -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")

4
lisp/cedet/semantic/db.el
View File

@ -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)))