Mercurial > emacs
changeset 39424:b7142e063fee
Fix character range regexp. Doc fix.
(ebnf-yac-skip-chars): New internal const.
(ebnf-yac-skip-code): Fix code.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 24 Sep 2001 17:42:19 +0000 |
| parents | 5695968e6eb1 |
| children | f35e1d3d74f6 |
| files | lisp/progmodes/ebnf-yac.el |
| diffstat | 1 files changed, 8 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/ebnf-yac.el Mon Sep 24 17:42:00 2001 +0000 +++ b/lisp/progmodes/ebnf-yac.el Mon Sep 24 17:42:19 2001 +0000 @@ -5,8 +5,8 @@ ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> ;; Keywords: wp, ebnf, PostScript -;; Time-stamp: <2001/08/15 17:15:15 vinicius> -;; Version: 1.1 +;; Time-stamp: <2001/09/24 10:17:13 vinicius> +;; Version: 1.2 ;; This file is part of GNU Emacs. @@ -383,14 +383,16 @@ (< (point) ebnf-limit)) +;; replace the range "\177-\377" (see `ebnf-range-regexp'). +(defconst ebnf-yac-skip-chars + (ebnf-range-regexp "^{}/'\"\000-\010\013\016-\037" ?\177 ?\377)) + + (defun ebnf-yac-skip-code () (forward-char) (let ((pair 1)) (while (> pair 0) - ;; replace the range "\177-\377" (see `ebnf-range-regexp'). - (skip-chars-forward (ebnf-range-regexp "^{}/'\"\000-\010\013\016-\037" - ?\177 ?\377) - ebnf-limit) + (skip-chars-forward ebnf-yac-skip-chars ebnf-limit) (cond ((= (following-char) ?{) (forward-char)