Commit 68e58405 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

Initial revision

parent 09eddb56
;;; batmode.el --- Simple mode for Windows BAT files
;; Copyright (C) 1996 Free Software Foundation, Inc.
;; Author: Peter Breton <>
;; Created: Thu Jul 25 1996
;; Keywords: BAT, DOS, Windows
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; USAGE: Byte-compile this file, and add the following lines to your
;; emacs initialization file (.emacs/_emacs):
;; (setq auto-mode-alist
;; (append
;; (list (cons "\\.[bB][aA][tT]$" 'bat-mode))
;; ;; For DOS init files
;; (list (cons "CONFIG\\." 'bat-mode))
;; (list (cons "AUTOEXEC\\." 'bat-mode))
;; auto-mode-alist))
;; (autoload 'bat-mode "batmode"
;; "DOS and WIndows BAT files" t)
;; TODO:
;; Support "compiles" ?
;; Imenu? Don't have real functions.....
;;; Change log:
;; $Log: batmode.el,v $
;; Revision 1.3 1996/08/22 02:31:47 peter
;; Added Usage message, credit to folks from NTEmacs mailing list,
;; Syntax table, New font-lock keywords
;; Revision 1.2 1996/08/18 16:27:13 peter
;; Added preliminary global-font-lock support
;; Revision 1.1 1996/08/18 16:14:18 peter
;; Initial revision
;; Credit for suggestions, patches and bug-fixes:
;; Robert Brodersen <>
;; (Alfred Correira)
;;; Code:
(defvar bat-mode-map nil "Local keymap for bat-mode buffers.")
;; Make this lowercase if you like
(defvar bat-mode-comment-start "REM "
"Comment string to use in BAT mode")
(defvar bat-mode-syntax-table nil
"Syntax table in use in Bat-mode buffers.")
(if bat-mode-map
(setq bat-mode-map (copy-keymap global-map))
;; Make underscores count as words
(if bat-mode-syntax-table
(setq bat-mode-syntax-table (make-syntax-table))
(modify-syntax-entry ?_ "w" bat-mode-syntax-table)
(defun bat-mode ()
"Mode for DOS and Windows BAT files"
(use-local-map bat-mode-map)
(set-syntax-table bat-mode-syntax-table)
(make-local-variable 'parse-sexp-ignore-comments)
(make-local-variable 'comment-start)
(make-local-variable 'comment-start-skip)
(make-local-variable 'comment-end)
(make-local-variable 'executable-command)
(make-local-variable 'font-lock-defaults)
(setq major-mode 'bat-mode
mode-name "bat"
comment-end ""
comment-start bat-mode-comment-start
comment-start-skip "[Rr][Ee][Mm] *"
parse-sexp-ignore-comments t
;; Global font-lock support
;; (setq font-lock-defaults (list 'bat-font-lock-keywords nil t nil nil))
(setq font-lock-defaults (list 'bat-font-lock-keywords nil))
(run-hooks 'bat-mode-hook))
(defvar bat-font-lock-keywords
;; Make this one first in the list, otherwise comments will
;; be over-written by other variables
(list "^[@ \t]*\\([rR][eE][mM].*\\)" 1 'font-lock-comment-face t)
(list "^[ \t]*\\(::-.*\\)" 1 'font-lock-comment-face t)
(concat "\\(\\<"
(mapconcat 'identity
"\\>\\)") 1 'font-lock-keyword-face)
(list "^[ \t]*\\(:\\sw+\\)" 1 'font-lock-function-name-face t)
(list "\\(%\\sw+%\\)" 1 'font-lock-reference-face)
(list "\\(%[0-9]\\)" 1 'font-lock-reference-face)
(list "\\(/[^/ \t\n]+\\)" 1 'font-lock-type-face)
(list "\\<\\(goto\\)\\>[ \t]*\\(\\sw+\\)?"
'(1 font-lock-keyword-face)
'(2 font-lock-function-name-face nil t))
"Keywords to hilight in BAT mode")
;;; don't do it in Win-Emacs
(if (boundp 'font-lock-defaults-alist)
(cons 'bat-mode
(list 'bat-font-lock-keywords nil t nil nil))))
(provide 'bat-mode)
;;; batmode.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment