diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-09 19:54:49 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-09 21:58:00 +0200 |
| commit | c47507ec560a09535a2b5830f1386d9fc9a58442 (patch) | |
| tree | fcde42acf20cadc99dd8bce81f01dbe01ba7e3ec /lisp/nxml/rng-valid.el | |
| parent | 581fa3d958c064e05a8f980472880f153aba30a6 (diff) | |
| download | emacs-c47507ec560a09535a2b5830f1386d9fc9a58442.tar.gz emacs-c47507ec560a09535a2b5830f1386d9fc9a58442.tar.bz2 emacs-c47507ec560a09535a2b5830f1386d9fc9a58442.zip | |
Make rng-blank-p obsolete in favor of string-blank-p
* lisp/nxml/rng-util.el (rng-blank-p): Make obsolete in favor of
string-blank-p. Update callers.
Diffstat (limited to 'lisp/nxml/rng-valid.el')
| -rw-r--r-- | lisp/nxml/rng-valid.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/nxml/rng-valid.el b/lisp/nxml/rng-valid.el index b9c980222e2..ad5c9c7a15c 100644 --- a/lisp/nxml/rng-valid.el +++ b/lisp/nxml/rng-valid.el @@ -1275,7 +1275,7 @@ Return nil at end of buffer, t otherwise." (defun rng-segment-blank-p (segment) (if (car segment) - (rng-blank-p (car segment)) + (string-blank-p (car segment)) (apply #'rng-region-blank-p (cdr segment)))) @@ -1303,7 +1303,7 @@ string between START and END." ((not (or (and whitespace (or (eq whitespace t) (if value - (rng-blank-p value) + (string-blank-p value) (rng-region-blank-p start end)))) (rng-match-mixed-text))) (rng-mark-invalid "Text not allowed" start (or end (point)))))) |