aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/progmodes/scheme.el2
-rw-r--r--lisp/textmodes/ispell.el2
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)))