(check-ispell-version): Don't use match-beginning

to check if the match succeeded.

(check-ispell-version): Don't use match-beginning
to check if the match succeeded.
27ce741e · Stefan Monnier · 285991dc · 27ce741e · 27ce741e
Commit 27ce741e authored Dec 02, 2000 by Stefan Monnier
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/textmodes/ispell.el lisp/textmodes/ispell.el +1 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2000-12-02  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* textmodes/ispell.el (check-ispell-version): Don't use match-beginning
+	to check if the match succeeded.
+
 2000-12-02  Gerd Moellmann  <gerd@gnu.org>

 	* startup.el (use-fancy-splash-screens-p): New function.

--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -747,8 +747,7 @@ Otherwise returns the library path if defined."
 				 ispell-version))
 	    (message result))
 	;; return library path.
-	(re-search-forward "LIBDIR = \\\"\\([^ \t\n]*\\)\\\"" nil t)
-	(if (match-beginning 0)
+	(if (re-search-forward "LIBDIR = \\\"\\([^ \t\n]*\\)\\\"" nil t)
 	    (setq result (buffer-substring (match-beginning 1) (match-end 1)))))
      (goto-char (point-min))
      (if (not (memq status '(0 nil)))