diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/rx.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el index d7677f14443..52a35ffa2a7 100644 --- a/lisp/emacs-lisp/rx.el +++ b/lisp/emacs-lisp/rx.el | |||
| @@ -477,6 +477,9 @@ If NEGATED, negate the sense (thus making it positive)." | |||
| 477 | ((eq arg 'word-boundary) | 477 | ((eq arg 'word-boundary) |
| 478 | (rx--translate-symbol | 478 | (rx--translate-symbol |
| 479 | (if negated 'word-boundary 'not-word-boundary))) | 479 | (if negated 'word-boundary 'not-word-boundary))) |
| 480 | ((let ((expanded (rx--expand-def arg))) | ||
| 481 | (and expanded | ||
| 482 | (rx--translate-not negated (list expanded))))) | ||
| 480 | (t (error "Illegal argument to rx `not': %S" arg))))) | 483 | (t (error "Illegal argument to rx `not': %S" arg))))) |
| 481 | 484 | ||
| 482 | (defun rx--atomic-regexp (item) | 485 | (defun rx--atomic-regexp (item) |