diff options
| author | Stefan Monnier | 2000-12-02 20:28:44 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-12-02 20:28:44 +0000 |
| commit | 27ce741e2b6f27e98538cceb5453ce9f4f6ac465 (patch) | |
| tree | 1400600e9bcfa622d253d4e1c2972bd49c712fa5 | |
| parent | 285991dceb4afdb2eec3e58dcca908316471b0c0 (diff) | |
| download | emacs-27ce741e2b6f27e98538cceb5453ce9f4f6ac465.tar.gz emacs-27ce741e2b6f27e98538cceb5453ce9f4f6ac465.zip | |
(check-ispell-version): Don't use match-beginning
to check if the match succeeded.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f7b03c122b1..cdfb4618547 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2000-12-02 Stefan Monnier <monnier@cs.yale.edu> | ||
| 2 | |||
| 3 | * textmodes/ispell.el (check-ispell-version): Don't use match-beginning | ||
| 4 | to check if the match succeeded. | ||
| 5 | |||
| 1 | 2000-12-02 Gerd Moellmann <gerd@gnu.org> | 6 | 2000-12-02 Gerd Moellmann <gerd@gnu.org> |
| 2 | 7 | ||
| 3 | * startup.el (use-fancy-splash-screens-p): New function. | 8 | * startup.el (use-fancy-splash-screens-p): New function. |
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 77c98d9cf4d..9776b74753b 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -747,8 +747,7 @@ Otherwise returns the library path if defined." | |||
| 747 | ispell-version)) | 747 | ispell-version)) |
| 748 | (message result)) | 748 | (message result)) |
| 749 | ;; return library path. | 749 | ;; return library path. |
| 750 | (re-search-forward "LIBDIR = \\\"\\([^ \t\n]*\\)\\\"" nil t) | 750 | (if (re-search-forward "LIBDIR = \\\"\\([^ \t\n]*\\)\\\"" nil t) |
| 751 | (if (match-beginning 0) | ||
| 752 | (setq result (buffer-substring (match-beginning 1) (match-end 1))))) | 751 | (setq result (buffer-substring (match-beginning 1) (match-end 1))))) |
| 753 | (goto-char (point-min)) | 752 | (goto-char (point-min)) |
| 754 | (if (not (memq status '(0 nil))) | 753 | (if (not (memq status '(0 nil))) |