mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

search preview read only

Browse source
This commit is contained in:
David Botton 2024-07-10 18:45:15 -04:00
parent ccc008b9ed
commit bb086f828d
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
tools/clog-builder-search.lisp
View file

@ -23,6 +23,7 @@
(setup-lisp-ace (preview-ace panel) nil) (setup-lisp-ace (preview-ace panel) nil)
(setf (text-value (preview-ace panel)) (setf (text-value (preview-ace panel))
";; After search, double click file name to open / single click to preview") ";; After search, double click file name to open / single click to preview")
(setf (read-only-p (preview-ace panel)) t)
(set-on-window-focus win (set-on-window-focus win
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))