]> code.delx.au - gnu-emacs/commitdiff
textmodes/flyspell.el: Minor change over last 2012-05-18T07:04:04Z!agustin.martin...
authorAgustín Martín <agustin.martin@hispalinux.es>
Fri, 18 May 2012 07:36:09 +0000 (09:36 +0200)
committerAgustín Martín <agustin.martin@hispalinux.es>
Fri, 18 May 2012 07:36:09 +0000 (09:36 +0200)
Use ispell-otherchars variable rather than (ispell-get-otherchars).

lisp/textmodes/flyspell.el

index 89134a1d3554ed86b2c086401b78cedb11b1492a..af924dd403bd172c2f151418c2b93f0470a77084 100644 (file)
@@ -828,7 +828,7 @@ Mostly we check word delimiters."
             (backward-char 1)
             (and (looking-at (flyspell-get-not-casechars))
                  (or (string= "" ispell-otherchars)
-                     (not (looking-at (ispell-get-otherchars))))
+                     (not (looking-at ispell-otherchars)))
                  (or flyspell-consider-dash-as-word-delimiter-flag
                      (not (looking-at "-"))))))
       ;; yes because we have reached or typed a word delimiter.
@@ -896,7 +896,7 @@ Mostly we check word delimiters."
                                       (backward-char 1)
                                       (and (and (looking-at (flyspell-get-not-casechars)) 1)
                                            (or (string= "" ispell-otherchars)
-                                               (not (looking-at (ispell-get-otherchars))))
+                                               (not (looking-at ispell-otherchars)))
                                            (and (or flyspell-consider-dash-as-word-delimiter-flag
                                                     (not (looking-at "\\-"))) 2))))))
                          c))))
@@ -913,7 +913,7 @@ Mostly we check word delimiters."
                                         (backward-char 1)
                                         (and (looking-at (flyspell-get-not-casechars))
                                              (or (string= "" ispell-otherchars)
-                                                 (not (looking-at (ispell-get-otherchars))))
+                                                 (not (looking-at ispell-otherchars)))
                                              (or flyspell-consider-dash-as-word-delimiter-flag
                                                  (not (looking-at "\\-"))))))))
                            c))