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:
parent
6e840831b6
commit
f2476c981c
1 changed files with 1 additions and 6 deletions
|
@ -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))
|
||||||
|
|
Loading…
Reference in a new issue