|
@@ -81,7 +81,11 @@
|
|
|
;; 6 should also be inline
|
|
|
(should (re-search-forward "6" nil t))
|
|
|
(should (re-search-forward (regexp-quote "</code>") (point-at-eol) t))
|
|
|
- (should (re-search-backward (regexp-quote "<code>") (point-at-bol) t))))))
|
|
|
+ (should (re-search-backward (regexp-quote "<code>") (point-at-bol) t))
|
|
|
+ ;; 8 should not be quoted
|
|
|
+ (should (re-search-forward "8" nil t))
|
|
|
+ (should (not (= ?= (char-after (point)))))
|
|
|
+ (should (not (= ?= (char-before (- (point) 1)))))))))
|
|
|
|
|
|
(provide 'test-ob-lob)
|
|
|
|