sfos/harbour-sextant
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don’t return a value qml can’t understand

Browse source
This commit is contained in:
Renaud Casenave-Péré 2023-01-24 09:23:40 +01:00
parent 10c872f461
commit 241f437de7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/local-projects/sextant/sextant.lisp
View file

@ -55,7 +55,8 @@
(make-org-model pathname org-document)
(initialize-commands pathname)
(push-to-recent-files pathname)
(setf currently-open-file pathname)))
(setf currently-open-file pathname)
nil))
(defun close-file (&optional filepath)
(let ((pathname (if filepath (parse-namestring filepath) currently-open-file)))