* test/automated/electric-tests.el (electric-quote-string): New test.
(skip-chars-backward "\"")
(mark-sexp -1)))
(skip-chars-backward "\"")
(mark-sexp -1)))
+\f
+;;; Electric quotes
+(define-electric-pair-test electric-quote-string
+ "" "'" :expected-string "'" :expected-point 2
+ :fixture-fn #'electric-quote-local-mode
+ :bindings '((electric-quote-string . t))
+ :test-in-comments nil :test-in-strings nil)
+
(provide 'electric-tests)
;;; electric-tests.el ends here
(provide 'electric-tests)
;;; electric-tests.el ends here