allowing .htm together with .html endings in pred.

git-svn-id: https://supercollider.svn.sourceforge.net/svnroot/supercollider/trunk@10227 a380766d-ff14-0410-b294-a243070f3f08
This commit is contained in:
andersvi 2010-08-03 21:12:24 +00:00
parent 6e840831b6
commit f2476c981c

View file

@ -134,12 +134,7 @@
;; ========= ADDITION for HTML help files ;; ========= ADDITION for HTML help files
(defun sclang-html-file-p (file) (defun sclang-html-file-p (file)
(let ((case-fold-search t)) (let ((case-fold-search t))
(string-match ".*\\.html$" file))) (string-match ".*\\.html?$" file)))
;; not quite working yet: would be better to combine with sclang-html-file-p
;(defun sclang-htm-file-p (file-name)
; (let ((case-fold-search t))
; (string-match ".*\\.htm$" file)))
(defun sclang-sc-file-p (file) (defun sclang-sc-file-p (file)
(let ((case-fold-search t)) (let ((case-fold-search t))