# HG changeset patch # User Juanma Barranquero # Date 1168746416 0 # Node ID d1295af1285f3125668e7f927f45599032070dfa # Parent e90d04cd455a0d439a9b213ff73ea0f3fb671a75 (antlr-indent-at-bol-alist): Fix typo in docstring. diff -r e90d04cd455a -r d1295af1285f lisp/progmodes/antlr-mode.el --- a/lisp/progmodes/antlr-mode.el Sun Jan 14 03:38:22 2007 +0000 +++ b/lisp/progmodes/antlr-mode.el Sun Jan 14 03:46:56 2007 +0000 @@ -1,6 +1,6 @@ ;;; antlr-mode.el --- major mode for ANTLR grammar files -;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 ;; Free Software Foundation, Inc. ;; ;; Author: Christoph.Wedler@sap.com @@ -319,7 +319,7 @@ If `antlr-language' equals to a MODE, the line starting at the first non-whitespace is matched by the corresponding REGEXP, and the line is -part of an header action, indent the line at column 0 instead according +part of a header action, indent the line at column 0 instead according to the normal rules of `antlr-indent-line'." :group 'antlr :type '(repeat (cons (function :tag "Major mode") regexp))) @@ -1659,7 +1659,7 @@ :active active)) (sort (mapcar 'car (elt antlr-options-alists (1- level))) 'string-lessp)))) - + ;;;=========================================================================== ;;; Insert option: determine section-kind @@ -1936,7 +1936,7 @@ ;; stuff (no =, {, } or /) at point is not followed by ";" (insert ";") (backward-char))) - + (defun antlr-insert-option-space (area old) "Find appropriate place to insert option, insert newlines/spaces. For AREA and OLD, see `antlr-insert-option-do'." @@ -1956,7 +1956,7 @@ (setq orig (point)) (goto-char orig))) (skip-chars-forward " \t") - + (if (looking-at "$\\|//") ;; just comment after point => skip (+ lines w/ same col comment) (let ((same (if (> (match-end 0) (match-beginning 0))