procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix character range regexp. Doc fix.

Browse source 
(ebnf-yac-skip-chars): New internal const.
(ebnf-yac-skip-code): Fix code.
This commit is contained in:
Gerd Moellmann 2001-09-24 17:43:45 +00:00
parent 8a1e4eebeb
commit a1548b10da
2 changed files with 25 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/ChangeLog
View file

@ -1,3 +1,20 @@
2001-09-24 Vinicius Jose Latorre <vinicius@cpqd.com.br>
* ebnf2ps.el: Eliminate make-local-hook calls. Doc fix.
(ebnf-version): New version (3.6.1).
* ebnf-bnf.el: Fix character range regexp. Doc fix.
(ebnf-bnf-non-terminal-chars): New internal const.
(ebnf-bnf-lex): Fix code.
* ebnf-iso.el: Fix character range regexp. Doc fix.
(ebnf-iso-non-terminal-chars): New internal const.
(ebnf-iso-lex): Fix code.
* ebnf-yac.el: Fix character range regexp. Doc fix.
(ebnf-yac-skip-chars): New internal const.
(ebnf-yac-skip-code): Fix code.
2001-09-24 Stefan Monnier <monnier@cs.yale.edu>
* pcvs-parse.el (cvs-parse-commit): Expand the file name before

14
lisp/progmodes/ebnf-yac.el
View file

@ -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 @@ See documentation for variable `ebnf-yac-lex'."
(< (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)