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-dtd.el | |
| parent | 17691ad2d31251ae7f6a123b65bd2ac2a1a8cc93 (diff) | |
| download | emacs-d950a61fc8d14faf71e3b546c59a72b6f711b5df.tar.gz emacs-d950a61fc8d14faf71e3b546c59a72b6f711b5df.tar.bz2 emacs-d950a61fc8d14faf71e3b546c59a72b6f711b5df.zip | |
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-dtd.el')
| -rw-r--r-- | lisp/progmodes/ebnf-dtd.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/progmodes/ebnf-dtd.el b/lisp/progmodes/ebnf-dtd.el index 7e824e487aa..bdebf0db2c1 100644 --- a/lisp/progmodes/ebnf-dtd.el +++ b/lisp/progmodes/ebnf-dtd.el @@ -1108,9 +1108,8 @@ (aset ebnf-dtd-token-table ?\] 'end-subset))) -;; replace the range "\240-\377" (see `ebnf-range-regexp'). (defconst ebnf-dtd-name-chars - (ebnf-range-regexp "-._:0-9A-Za-z" ?\240 ?\377)) + "-._:0-9A-Za-z\u00a0-\u00ff") (defconst ebnf-dtd-decl-alist @@ -1263,11 +1262,10 @@ See documentation for variable `ebnf-dtd-lex'." (format "%s%s;" start char))) -;; replace the range "\240-\377" (see `ebnf-range-regexp'). (defconst ebnf-dtd-double-string-chars - (ebnf-range-regexp "\t -!#-~" ?\240 ?\377)) + "\t -!#-~\u00a0-\u00ff") (defconst ebnf-dtd-single-string-chars - (ebnf-range-regexp "\t -&(-~" ?\240 ?\377)) + "\t -&(-~\u00a0-\u00ff") (defun ebnf-dtd-string (delim) @@ -1287,11 +1285,10 @@ See documentation for variable `ebnf-dtd-lex'." (forward-char))))) -;; replace the range "\177-\237" (see `ebnf-range-regexp'). (defconst ebnf-dtd-comment-chars - (ebnf-range-regexp "^-\000-\010\013\014\016-\037" ?\177 ?\237)) + "^-\000-\010\013\014\016-\037\177\u0080-\u009f") (defconst ebnf-dtd-filename-chars - (ebnf-range-regexp "^-\000-\037" ?\177 ?\237)) + "^-\000-\037\177\u0080-\u009f") (defun ebnf-dtd-skip-comment () |