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

to check if the match succeeded.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7b03c122b15efb3552cb9eac5b7fd162c575740..cdfb46185476e08e4b10f0a28b1357a6227b51e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 77c98d9cf4db05b165be2be95cd6c45fd163a106..9776b74753bd1e64c7c9e9e4f00ffe38954ee766 100644 (file)
--- 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)))