[patch] Add demo to file_search_demo
- Subject: [patch] Add demo to file_search_demo
- From: Billinghurst, David (CRTS)
- Date: Sun, 23 Jun 2002 22:24:52 +1000
The demo() command does not search the demo subdirectory for *.dem files.
This is fixed with the following patch. With it, demo("cf") works.
OK to apply?
Index: init-cl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/init-cl.lisp,v
retrieving revision 1.12
diff -u -r1.12 init-cl.lisp
--- init-cl.lisp 21 Jun 2002 01:56:20 -0000 1.12
+++ init-cl.lisp 23 Jun 2002 12:04:18 -0000
@@ -122,7 +122,10 @@
(maxima-data-path share-with-subdirs "###.mac")
(maxima-data-path share-with-subdirs "###.mc")))
(setq $file_search_demo
- (list '(mlist) (maxima-data-path share-with-subdirs
+ (list '(mlist)
+ (maxima-data-path share-with-subdirs
+ "###.{dem,dm1,dm2,dm3,dmt}")
+ (maxima-data-path "{demo}"
"###.{dem,dm1,dm2,dm3,dmt}")))
(setq $file_search_usage
(list '(mlist) (maxima-data-path share-with-subdirs