788 |
(point)) |
(point)) |
789 |
", " |
", " |
790 |
ispell-version)) |
ispell-version)) |
791 |
(message result)) |
(message "%s" result)) |
792 |
;; return library directory. |
;; return library directory. |
793 |
(if (re-search-forward "LIBDIR = \\\"\\([^ \t\n]*\\)\\\"" nil t) |
(if (re-search-forward "LIBDIR = \\\"\\([^ \t\n]*\\)\\\"" nil t) |
794 |
(setq result (buffer-substring (match-beginning 1) (match-end 1))))) |
(setq result (buffer-substring (match-beginning 1) (match-end 1))))) |
2387 |
(substring output 2)) ; return root word |
(substring output 2)) ; return root word |
2388 |
((equal 0 (string-match "[\ra-zA-Z]" output)) |
((equal 0 (string-match "[\ra-zA-Z]" output)) |
2389 |
(ding) ; error message from ispell! |
(ding) ; error message from ispell! |
2390 |
(message (concat "Ispell error: " output)) |
(message "Ispell error: %s" output) |
2391 |
(sit-for 5) |
(sit-for 5) |
2392 |
nil) |
nil) |
2393 |
(t ; need to process &, ?, and #'s |
(t ; need to process &, ?, and #'s |