aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2007-01-14 03:46:56 +0000
committerJuanma Barranquero2007-01-14 03:46:56 +0000
commitf0b43df7a5e9683f5d413fb266a02f389ec5d58e (patch)
treee48865fe323df7b164f60a45facc87d8de53a6ac
parent429ab54e011ed79b3a0418eb8bd7691b50ce5b15 (diff)
downloademacs-f0b43df7a5e9683f5d413fb266a02f389ec5d58e.tar.gz
emacs-f0b43df7a5e9683f5d413fb266a02f389ec5d58e.zip
(antlr-indent-at-bol-alist): Fix typo in docstring.
-rw-r--r--lisp/progmodes/antlr-mode.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el
index e31a94030c3..3b7a2015af5 100644
--- a/lisp/progmodes/antlr-mode.el
+++ b/lisp/progmodes/antlr-mode.el
@@ -1,6 +1,6 @@
1;;; antlr-mode.el --- major mode for ANTLR grammar files 1;;; antlr-mode.el --- major mode for ANTLR grammar files
2 2
3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 3;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007
4;; Free Software Foundation, Inc. 4;; Free Software Foundation, Inc.
5;; 5;;
6;; Author: Christoph.Wedler@sap.com 6;; Author: Christoph.Wedler@sap.com
@@ -319,7 +319,7 @@ function and REGEXP is a regular expression.
319 319
320If `antlr-language' equals to a MODE, the line starting at the first 320If `antlr-language' equals to a MODE, the line starting at the first
321non-whitespace is matched by the corresponding REGEXP, and the line is 321non-whitespace is matched by the corresponding REGEXP, and the line is
322part of an header action, indent the line at column 0 instead according 322part of a header action, indent the line at column 0 instead according
323to the normal rules of `antlr-indent-line'." 323to the normal rules of `antlr-indent-line'."
324 :group 'antlr 324 :group 'antlr
325 :type '(repeat (cons (function :tag "Major mode") regexp))) 325 :type '(repeat (cons (function :tag "Major mode") regexp)))
@@ -1659,7 +1659,7 @@ Return \(LEVEL OPTION LOCATION)."
1659 :active active)) 1659 :active active))
1660 (sort (mapcar 'car (elt antlr-options-alists (1- level))) 1660 (sort (mapcar 'car (elt antlr-options-alists (1- level)))
1661 'string-lessp)))) 1661 'string-lessp))))
1662 1662
1663 1663
1664;;;=========================================================================== 1664;;;===========================================================================
1665;;; Insert option: determine section-kind 1665;;; Insert option: determine section-kind
@@ -1936,7 +1936,7 @@ For OLD, see `antlr-insert-option-do'."
1936 ;; stuff (no =, {, } or /) at point is not followed by ";" 1936 ;; stuff (no =, {, } or /) at point is not followed by ";"
1937 (insert ";") 1937 (insert ";")
1938 (backward-char))) 1938 (backward-char)))
1939 1939
1940(defun antlr-insert-option-space (area old) 1940(defun antlr-insert-option-space (area old)
1941 "Find appropriate place to insert option, insert newlines/spaces. 1941 "Find appropriate place to insert option, insert newlines/spaces.
1942For AREA and OLD, see `antlr-insert-option-do'." 1942For AREA and OLD, see `antlr-insert-option-do'."
@@ -1956,7 +1956,7 @@ For AREA and OLD, see `antlr-insert-option-do'."
1956 (setq orig (point)) 1956 (setq orig (point))
1957 (goto-char orig))) 1957 (goto-char orig)))
1958 (skip-chars-forward " \t") 1958 (skip-chars-forward " \t")
1959 1959
1960 (if (looking-at "$\\|//") 1960 (if (looking-at "$\\|//")
1961 ;; just comment after point => skip (+ lines w/ same col comment) 1961 ;; just comment after point => skip (+ lines w/ same col comment)
1962 (let ((same (if (> (match-end 0) (match-beginning 0)) 1962 (let ((same (if (> (match-end 0) (match-beginning 0))