mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 06:31:13 -08:00
Code Issues Projects Releases Wiki Activity

Fix the same problem as described on ebnf2ps.el log

Browse source 
entry.  Doc fix.
(ebnf-yac-skip-code): Code fix.
(ebnf-yac-comment-chars): Const fix.
This commit is contained in:
Gerd Moellmann 2000-12-21 21:24:03 +00:00
parent e4dec765ec
commit 647a066c8d
2 changed files with 35 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/ChangeLog
View file

@ -9,6 +9,32 @@
* server.el (server-switch-buffer): Choose a window on a visible
frame.
2000-12-21 Vinicius Jose Latorre <vinicius@cpqd.com.br>
* ebnf2ps.el: Fix a problem with skip-chars-forward: it doesn't accept
ranges like \177-\237, but accepts the character sequence from \177 to
\237. Doc fix.
(ebnf-version): New version (3.4).
(ebnf-setup): Code fix.
(ebnf-range-regexp): New fun.
(ebnf-8-bit-chars): Const fix.
* ebnf-bnf.el: Fix the same problem as described on ebnf2ps.el log
entry. Doc fix.
(ebnf-bnf-lex): Code fix.
(ebnf-bnf-comment-chars): Const fix.
* ebnf-iso.el: Fix the same problem as described on ebnf2ps.el log
entry. Doc fix.
(ebnf-iso-comment-chars): Const fix.
* ebnf-otz.el: Doc fix.
* ebnf-yac.el: Fix the same problem as described on ebnf2ps.el log
entry. Doc fix.
(ebnf-yac-skip-code): Code fix.
(ebnf-yac-comment-chars): Const fix.
2000-12-21 Eli Zaretskii <eliz@is.elta.co.il>
* files.el (insert-directory-safely): New function.

13
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: <99/11/20 18:02:43 vinicius>
;; Version: 1.0
;; Time-stamp: <2000/12/19 15:47:23 vinicius>
;; Version: 1.1
;; This file is part of GNU Emacs.
@ -387,7 +387,10 @@ See documentation for variable `ebnf-yac-lex'."
(forward-char)
(let ((pair 1))
(while (> pair 0)
(skip-chars-forward "^{}/'\"\000-\010\013\016-\037\177-\377" ebnf-limit)
;; replace the range "\177-\377" (see `ebnf-range-regexp').
(skip-chars-forward (ebnf-range-regexp "^{}/'\"\000-\010\013\016-\037"
?\177 ?\377)
ebnf-limit)
(cond
((= (following-char) ?{)
(forward-char)
@ -423,7 +426,9 @@ See documentation for variable `ebnf-yac-lex'."
))
(defconst ebnf-yac-comment-chars "^*\000-\010\013\016-\037\177-\237")
;; replace the range "\177-\237" (see `ebnf-range-regexp').
(defconst ebnf-yac-comment-chars
(ebnf-range-regexp "^*\000-\010\013\016-\037" ?\177 ?\237))
(defun ebnf-yac-skip-comment ()