1.0.14.3: add html -> htm abbreviation to wxs.lisp

[sbcl.git] / tools-for-build / wxs.lisp

diff --git a/tools-for-build/wxs.lisp b/tools-for-build/wxs.lisp
index a6f1678..1374799 100644 (file)
--- a/tools-for-build/wxs.lisp
+++ b/tools-for-build/wxs.lisp
@@ -116,7 +116,8 @@
     ("fasl" . "fas")
     ("SBCL" . "txt") ; README.SBCL -> README.txt
     ("texinfo" . "tfo")
-    ("lisp-temp" . "lmp")))
+    ("lisp-temp" . "lmp")
+    ("html" . "htm")))
 
 (defun file-names (pathname)
   (if (or (< 8 (length (pathname-name pathname)))
@@ -232,8 +233,13 @@
                             "Name" "PATH"
                             "Part" "first"
                             "Value" "[INSTALLDIR]"))
-            ,(make-extension "fasl" "application/x-lisp-fasl")
-            ,(make-extension "lisp" "text/x-lisp-source")
+            ;; If we want to associate files with SBCL, this
+            ;; is how it's done -- but doing this by default
+            ;; and without asking the user for permission Is
+            ;; Bad. Before this is enabled we need to figure out
+            ;; how to make WiX ask for permission for this...
+            ;; ,(make-extension "fasl" "application/x-lisp-fasl")
+            ;; ,(make-extension "lisp" "text/x-lisp-source")
             ("File" ("Id" "sbcl.exe"
                      "Name" "sbcl.exe"
                      "Source" "../src/runtime/sbcl.exe")