From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 22 Dec 2005 01:51:40 +0000 (+0000)
Subject: (flyspell-check-word-p): Don't quote - in a regexp.
X-Git-Tag: emacs-pretest-22.0.90~5138
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c84131648cf906624d632f2e2b25999d9ba71c7;p=emacs.git

(flyspell-check-word-p): Don't quote - in a regexp.
(tex-mode-flyspell-verify, flyspell-get-word)
(flyspell-external-point-words): Don't use point-min/max uselessly.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d2162d7b1ad..303099f0412 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2005-12-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* textmodes/flyspell.el (flyspell-check-word-p): Don't quote - in a RE.
+	(tex-mode-flyspell-verify, flyspell-get-word)
+	(flyspell-external-point-words): Don't use point-min/max uselessly.
+
 	* emacs-lisp/lisp.el (lisp-complete-symbol): Mostly undo the change
 	by Kevin Rodgers.  Instead, just hide the completions buffer if we
 	don't need to show it.
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 4bea438bf2b..cad65b3b59d 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -324,7 +324,7 @@ property of the major mode name.")
   "This function is used for `flyspell-generic-check-word-p' in LaTeX mode."
   (and
    (not (save-excursion
-	  (re-search-backward "^[ \t]*%%%[ \t]+Local" (point-min) t)))
+	  (re-search-backward "^[ \t]*%%%[ \t]+Local" nil t)))
    (not (save-excursion
 	  (let ((this (point-marker))
 		(e (progn (end-of-line) (point-marker))))
@@ -753,7 +753,7 @@ Mostly we check word delimiters."
 	   (backward-char 1)
 	   (and (looking-at (flyspell-get-not-casechars))
 		(or flyspell-consider-dash-as-word-delimiter-flag
-		    (not (looking-at "\\-"))))))
+		    (not (looking-at "-"))))))
     ;; yes because we have reached or typed a word delimiter.
     t)
    ((symbolp this-command)
@@ -1225,10 +1225,10 @@ Word syntax described by `flyspell-dictionary-alist' (which see)."
     ;; find the word
     (if (not (looking-at flyspell-casechars))
 	(if following
-	    (re-search-forward flyspell-casechars (point-max) t)
-	  (re-search-backward flyspell-casechars (point-min) t)))
+	    (re-search-forward flyspell-casechars nil t)
+	  (re-search-backward flyspell-casechars nil t)))
     ;; move to front of word
-    (re-search-backward flyspell-not-casechars (point-min) 'start)
+    (re-search-backward flyspell-not-casechars nil 'start)
     (while (and (or (and (not (string= "" ispell-otherchars))
 			 (looking-at ispell-otherchars))
 		    (and extra-otherchars (looking-at extra-otherchars)))
@@ -1240,15 +1240,15 @@ Word syntax described by `flyspell-dictionary-alist' (which see)."
 	  (progn
 	    (backward-char 1)
 	    (if (looking-at flyspell-casechars)
-		(re-search-backward flyspell-not-casechars (point-min) 'move)))
+		(re-search-backward flyspell-not-casechars nil 'move)))
 	(setq did-it-once t
 	      prevpt (point))
 	(backward-char 1)
 	(if (looking-at flyspell-casechars)
-	    (re-search-backward flyspell-not-casechars (point-min) 'move)
+	    (re-search-backward flyspell-not-casechars nil 'move)
 	  (backward-char -1))))
     ;; Now mark the word and save to string.
-    (if (not (re-search-forward word-regexp (point-max) t))
+    (if (not (re-search-forward word-regexp nil t))
 	nil
       (progn
 	(setq start (match-beginning 0)
@@ -1312,7 +1312,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
     (with-current-buffer flyspell-external-ispell-buffer
       (goto-char (point-min))
       ;; Loop over incorrect words.
-      (while (re-search-forward "\\([^\n]+\\)\n" (point-max) t)
+      (while (re-search-forward "\\([^\n]+\\)\n" nil t)
 	;; Bind WORD to the next one.
 	(let ((word (match-string 1)) (wordpos (point)))
 	  ;; Here there used to be code to see if WORD is the same