Lines Matching defs:strict
1299 `viper-syntax-preference' is `strict-vi' or `reformed-vi'.")
1301 (defconst viper-strict-ALPHA-chars "a-zA-Z0-9_"
1302 "Regexp matching the set of alphanumeric characters acceptable to strict
1304 (defconst viper-strict-SEP-chars " \t\n"
1305 "Regexp matching the set of alphanumeric characters acceptable to strict
1307 (defconst viper-strict-SEP-chars-sans-newline " \t"
1308 "Regexp matching the set of alphanumeric characters acceptable to strict
1347 '(("strict-vi") ("reformed-vi") ("extended") ("emacs"))
1350 (or (memq value '(strict-vi reformed-vi extended emacs))
1362 `strict-vi' means Viper words are (hopefully) exactly as in Vi.
1368 This behaves very close to `strict-vi', but also works well with non-ASCII
1378 :type '(radio (const strict-vi) (const reformed-vi)
1392 (if (eq viper-syntax-preference 'strict-vi)
1393 (looking-at (concat "[" viper-strict-ALPHA-chars addl-chars "]"))
1409 (if (eq viper-syntax-preference 'strict-vi)
1410 (viper-memq-char char (viper-string-to-list viper-strict-SEP-chars))
1423 (cond ((eq viper-syntax-preference 'strict-vi)
1426 (cond ((eq viper-syntax-preference 'strict-vi)
1427 (concat viper-strict-ALPHA-chars addl-chars))
1434 (cond ((eq viper-syntax-preference 'strict-vi)
1437 (cond ((eq viper-syntax-preference 'strict-vi)
1438 (concat viper-strict-ALPHA-chars addl-chars))
1441 ;; weird syntax tables may confuse strict-vi style
1443 (if (eq viper-syntax-preference 'strict-vi)
1445 (skip-chars-forward viper-strict-SEP-chars-sans-newline)
1446 (skip-chars-forward viper-strict-SEP-chars))
1453 (if (eq viper-syntax-preference 'strict-vi)
1455 (skip-chars-backward viper-strict-SEP-chars-sans-newline)
1456 (skip-chars-backward viper-strict-SEP-chars))
1471 (if (eq viper-syntax-preference 'strict-vi)
1473 (concat "^" viper-strict-SEP-chars viper-strict-ALPHA-chars))
1482 (if (eq viper-syntax-preference 'strict-vi)
1484 (concat "^" viper-strict-SEP-chars viper-strict-ALPHA-chars))