diff options
| -rw-r--r-- | lisp/progmodes/scheme.el | 2 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index c427eddf871..be4c23c781f 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el | |||
| @@ -33,7 +33,7 @@ | |||
| 33 | ;; for instance, at <URL:http://www.sil.org/sgml/related.html#dsssl>.] | 33 | ;; for instance, at <URL:http://www.sil.org/sgml/related.html#dsssl>.] |
| 34 | ;; All these Lisp-ish modes vary basically in details of the language | 34 | ;; All these Lisp-ish modes vary basically in details of the language |
| 35 | ;; syntax they highlight/indent/index, but dsssl-mode uses "^;;;" as | 35 | ;; syntax they highlight/indent/index, but dsssl-mode uses "^;;;" as |
| 36 | ;; the page-delimiter since ^L isn't normally a legal SGML character. | 36 | ;; the page-delimiter since ^L isn't normally a valid SGML character. |
| 37 | ;; | 37 | ;; |
| 38 | ;; For interacting with a Scheme interpreter See also `run-scheme' in | 38 | ;; For interacting with a Scheme interpreter See also `run-scheme' in |
| 39 | ;; the `cmuscheme' package and also the implementation-specific | 39 | ;; the `cmuscheme' package and also the implementation-specific |
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index ed6a6ed464b..edf2aab7955 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -3757,7 +3757,7 @@ Both should not be used to define a buffer-local dictionary." | |||
| 3757 | ;; any character other than a space. Not rigorous enough. | 3757 | ;; any character other than a space. Not rigorous enough. |
| 3758 | (while (re-search-forward " *\\([^ ]+\\)" end t) | 3758 | (while (re-search-forward " *\\([^ ]+\\)" end t) |
| 3759 | (setq string (match-string-no-properties 1)) | 3759 | (setq string (match-string-no-properties 1)) |
| 3760 | ;; This can fail when string contains a word with illegal chars. | 3760 | ;; This can fail when string contains a word with invalid chars. |
| 3761 | ;; Error handling needs to be added between ispell and emacs. | 3761 | ;; Error handling needs to be added between ispell and emacs. |
| 3762 | (if (and (< 1 (length string)) | 3762 | (if (and (< 1 (length string)) |
| 3763 | (equal 0 (string-match ispell-casechars string))) | 3763 | (equal 0 (string-match ispell-casechars string))) |