From b857cb5c8ea5fdc163fe9bcd2cb2e1c7fd398bed Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 18 Mar 2006 14:11:55 +0000 Subject: [PATCH] (ispell-skip-region-alist): Add "_+" to the part that matches email addresses, file names, etc. --- lisp/textmodes/ispell.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 1991a73e8e2..64314c772b2 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1325,9 +1325,10 @@ The last occurring definition in the buffer will be used.") ("^%!PS-Adobe-[123].0" . "\n%%EOF\n") ("^---* \\(Start of \\)?[Ff]orwarded [Mm]essage" . "^---* End of [Ff]orwarded [Mm]essage") - ;; Matches e-mail addresses, file names, http addresses, etc. The `-+' - ;; pattern necessary for performance reasons when `-' part of word syntax. - ("\\(--+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)") + ;; Matches e-mail addresses, file names, http addresses, etc. The + ;; `-+' `_+' patterns are necessary for performance reasons when + ;; `-' or `_' part of word syntax. + ("\\(--+\\|_+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)") ;; above checks /.\w sequences ;;("\\(--+\\|\\(/\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)") ;; This is a pretty complex regexp. It can be simplified to the following: -- 2.39.2