Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 34131:63a3259e1b50
(check-ispell-version): Don't use match-beginning
to check if the match succeeded.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 02 Dec 2000 20:28:33 +0000 |
| parents | efc926d28bd3 |
| children | 243429d5e6d2 |
comparison
equal
deleted
inserted
replaced
| 34130:2f332379e418 | 34131:63a3259e1b50 |
|---|---|
| 745 (point)) | 745 (point)) |
| 746 ", " | 746 ", " |
| 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))) |
| 755 (error "%s exited with %s %s" ispell-program-name | 754 (error "%s exited with %s %s" ispell-program-name |
| 756 (if (stringp status) "signal" "code") status)) | 755 (if (stringp status) "signal" "code") status)) |