diff options
author | Mattias EngdegÄrd <mattiase@acm.org> | 2020-02-19 22:08:22 +0100 |
---|---|---|
committer | Mattias EngdegÄrd <mattiase@acm.org> | 2020-02-20 15:52:23 +0100 |
commit | d950a61fc8d14faf71e3b546c59a72b6f711b5df (patch) | |
tree | b3b3bfd13164be48396a674a97a47bfc498211dd /lisp/progmodes/ebnf-abn.el | |
parent | 17691ad2d31251ae7f6a123b65bd2ac2a1a8cc93 (diff) | |
download | emacs-d950a61fc8d14faf71e3b546c59a72b6f711b5df.tar.gz |
Remove Emacs 20 bug workaround in ebnf2ps (bug#39663)
* lisp/progmodes/ebnf2ps.el (ebnf-range-regexp): Remove. All calls
replaced with a string equivalent to the returned value.
Diffstat (limited to 'lisp/progmodes/ebnf-abn.el')
-rw-r--r-- | lisp/progmodes/ebnf-abn.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/progmodes/ebnf-abn.el b/lisp/progmodes/ebnf-abn.el index dc6bd44e482..bf9b0e961ba 100644 --- a/lisp/progmodes/ebnf-abn.el +++ b/lisp/progmodes/ebnf-abn.el @@ -474,11 +474,10 @@ (aset ebnf-abn-token-table ?\; 'comment))) -;; replace the range "\240-\377" (see `ebnf-range-regexp'). (defconst ebnf-abn-non-terminal-chars - (ebnf-range-regexp "-_0-9A-Za-z" ?\240 ?\377)) + "-_0-9A-Za-z\u00a0-\u00ff") (defconst ebnf-abn-non-terminal-letter-chars - (ebnf-range-regexp "A-Za-z" ?\240 ?\377)) + "A-Za-z\u00a0-\u00ff") (defun ebnf-abn-lex () @@ -572,9 +571,8 @@ See documentation for variable `ebnf-abn-lex'." (not eor-p))) -;; replace the range "\177-\237" (see `ebnf-range-regexp'). (defconst ebnf-abn-comment-chars - (ebnf-range-regexp "^\n\000-\010\016-\037" ?\177 ?\237)) + "^\n\000-\010\016-\037\177\u0080-\u009f") (defun ebnf-abn-skip-comment () @@ -612,9 +610,8 @@ See documentation for variable `ebnf-abn-lex'." (ebnf-buffer-substring ebnf-abn-comment-chars)) -;; replace the range "\240-\377" (see `ebnf-range-regexp'). (defconst ebnf-abn-string-chars - (ebnf-range-regexp " -!#-~" ?\240 ?\377)) + " !#-~\u00a0-\u00ff") (defun ebnf-abn-string () |