From fb6c60031936bdaaeb808fb61b3073bdb058607a Mon Sep 17 00:00:00 2001 From: Paulo Cesar Pereira de Andrade Date: Thu, 10 Jul 2008 16:38:09 -0300 Subject: Update file type pattern matching. Consider a file ending in .l a lisp source file. Allow an arbitrary number of bytes following the filename for xconf and xlog modes. Don't use make mode for "Imakefile". Require a slash before [Mm]akefile.*. --- lisp/modules/xedit.lsp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp') diff --git a/lisp/modules/xedit.lsp b/lisp/modules/xedit.lsp index 2b76970..9b916d5 100644 --- a/lisp/modules/xedit.lsp +++ b/lisp/modules/xedit.lsp @@ -54,15 +54,15 @@ ;; syntax-p, the entry is removed. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar *auto-modes* '( - ("\\.(c|cc|C|cxx|cpp|h|hpp|bm|xbm|xpm|l|y|h\\.in)$" + ("\\.(c|cc|C|cxx|cpp|h|hpp|bm|xbm|xpm|y|h\\.in)$" "C/C++" "c" . *c-mode*) - ("\\.(li?sp|scm)$" + ("\\.(l|li?sp|scm)$" "Lisp/Scheme" "lisp" . *lisp-mode*) ("\\.sh$" "Unix shell" "sh" . *sh-mode*) ("\\.(diff|patch)" "Patch file" "patch" . *patch-mode*) - ("[Mm]akefile.*|\\.mk$" + ("/[Mm]akefile.*|\\.mk$" "Makefile" "make" . *make-mode*) ("\\.(ac|in|m4)$" "Autotools" "auto" . *auto-mode*) @@ -80,9 +80,9 @@ "Man page" "man" . *man-mode*) ("app-defaults/\\w+|\\u[A-Za-z0-9_-]+\\.ad" "X resource" "xrdb" . *xrdb-mode*) - ("\\<(XF86Config[^/]*|xorg.conf$)" + ("\\<(XF86Config|xorg.conf)[^/]*" "XF86Config" "xconf" . *xconf-mode*) - ("\\<(XFree86|Xorg)\\.\\d+\\.log$" + ("\\<(XFree86|Xorg)\\.\\d+\\.log(\\..*|$)" "XFree86 log" "xlog" . *xlog-mode*) ("Imakefile|(\\.(cf|rules|tmpl|def)$)" "X imake" "imake" . *imake-mode*) -- cgit v1.2.3