From f2476c981c0c4a1195f8f913a3d992379e1c1de0 Mon Sep 17 00:00:00 2001 From: andersvi Date: Tue, 3 Aug 2010 21:12:24 +0000 Subject: [PATCH] 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 --- el/sclang-help.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/el/sclang-help.el b/el/sclang-help.el index e573d61..d64f478 100644 --- a/el/sclang-help.el +++ b/el/sclang-help.el @@ -134,12 +134,7 @@ ;; ========= ADDITION for HTML help files (defun sclang-html-file-p (file) (let ((case-fold-search t)) - (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))) + (string-match ".*\\.html?$" file))) (defun sclang-sc-file-p (file) (let ((case-fold-search t))