aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/progmodes
diff options
context:
space:
mode:
authorGerd Moellmann2000-12-21 21:24:03 +0000
committerGerd Moellmann2000-12-21 21:24:03 +0000
commit647a066c8d2a8d596fdbecc68e53934efec1506d (patch)
tree3de04086ba1c2f70b2636a1662e01a2de2950153 /lisp/progmodes
parente4dec765ecde99c3338f14539a24fdc7591ef6f5 (diff)
downloademacs-647a066c8d2a8d596fdbecc68e53934efec1506d.tar.gz
emacs-647a066c8d2a8d596fdbecc68e53934efec1506d.zip
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.
Diffstat (limited to 'lisp/progmodes')
-rw-r--r--lisp/progmodes/ebnf-yac.el13
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index 5301f409654..a0a7f7048b9 100644
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -5,8 +5,8 @@
5;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 5;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
6;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 6;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
7;; Keywords: wp, ebnf, PostScript 7;; Keywords: wp, ebnf, PostScript
8;; Time-stamp: <99/11/20 18:02:43 vinicius> 8;; Time-stamp: <2000/12/19 15:47:23 vinicius>
9;; Version: 1.0 9;; Version: 1.1
10 10
11;; This file is part of GNU Emacs. 11;; This file is part of GNU Emacs.
12 12
@@ -387,7 +387,10 @@ See documentation for variable `ebnf-yac-lex'."
387 (forward-char) 387 (forward-char)
388 (let ((pair 1)) 388 (let ((pair 1))
389 (while (> pair 0) 389 (while (> pair 0)
390 (skip-chars-forward "^{}/'\"\000-\010\013\016-\037\177-\377" ebnf-limit) 390 ;; replace the range "\177-\377" (see `ebnf-range-regexp').
391 (skip-chars-forward (ebnf-range-regexp "^{}/'\"\000-\010\013\016-\037"
392 ?\177 ?\377)
393 ebnf-limit)
391 (cond 394 (cond
392 ((= (following-char) ?{) 395 ((= (following-char) ?{)
393 (forward-char) 396 (forward-char)
@@ -423,7 +426,9 @@ See documentation for variable `ebnf-yac-lex'."
423 )) 426 ))
424 427
425 428
426(defconst ebnf-yac-comment-chars "^*\000-\010\013\016-\037\177-\237") 429;; replace the range "\177-\237" (see `ebnf-range-regexp').
430(defconst ebnf-yac-comment-chars
431 (ebnf-range-regexp "^*\000-\010\013\016-\037" ?\177 ?\237))
427 432
428 433
429(defun ebnf-yac-skip-comment () 434(defun ebnf-yac-skip-comment ()