X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/0d26e0b62b7d01e3cb6eb57943269b8f25e53cd6..e1dbe924b53c541fdf238a5a722b7177d5c8760b:/lisp/progmodes/cc-awk.el?ds=inline diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el index d55e5ce23b..8213a83461 100644 --- a/lisp/progmodes/cc-awk.el +++ b/lisp/progmodes/cc-awk.el @@ -128,7 +128,7 @@ ;; REGEXPS FOR "HARMLESS" STRINGS/LINES. (defconst c-awk-harmless-char-re "[^_#/\"\\\\\n\r]") ;; Matches any character but a _, #, /, ", \, or newline. N.B. _" starts a -;; localisation string in gawk 3.1 +;; localization string in gawk 3.1 (defconst c-awk-harmless-_ "_\\([^\"]\\|\\'\\)") ;; Matches an underline NOT followed by ". (defconst c-awk-harmless-string*-re @@ -160,7 +160,7 @@ (defconst c-awk-string-without-end-here-re (concat "\\=_?\"" c-awk-string-innards-re)) ;; Matches an AWK string at point up to, but not including, any terminator. -;; A gawk 3.1+ string may look like _"localisable string". +;; A gawk 3.1+ string may look like _"localizable string". (defconst c-awk-one-line-possibly-open-string-re (concat "\"\\(" c-awk-string-ch-re "\\|" c-awk-non-eol-esc-pair-re "\\)*" "\\(\"\\|\\\\?$\\|\\'\\)")) @@ -231,7 +231,7 @@ ;; to foul things up. (defconst c-awk-non-arith-op-bra-re "[[\(&=:!><,?;'~|]") -;; Matches an openeing BRAcket ,round or square, or any operator character +;; Matches an opening BRAcket, round or square, or any operator character ;; apart from +,-,/,*,%. For the purpose at hand (detecting a / which is a ;; regexp bracket) these arith ops are unnecessary and a pain, because of "++" ;; and "--". @@ -718,7 +718,7 @@ ;; This function does hidden buffer changes. (let ((/point (point))) (goto-char anchor) - ;; Analyse the line to find out what the / is. + ;; Analyze the line to find out what the / is. (if (if anchor-state-/div (not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t)) (search-forward-regexp c-awk-div-sign-re (1+ /point) t)) @@ -776,7 +776,7 @@ (setq anchor (point)) (search-forward-regexp c-awk-harmless-string*-here-re nil t) ;; We are now looking at either a " or a /. - ;; Do our thing on the string, regexp or divsion sign. + ;; Do our thing on the string, regexp or division sign. (setq anchor-state-/div (if (looking-at "_?\"") (c-awk-syntax-tablify-string) @@ -847,7 +847,7 @@ ;; Awk regexps written with help from Peter Galbraith ;; . -;; Take GNU Emacs's 'words out of the following regexp-opts. They dont work +;; Take GNU Emacs's 'words out of the following regexp-opts. They don't work ;; in XEmacs 21.4.4. acm 2002/9/19. (defconst awk-font-lock-keywords (eval-when-compile