Mercurial > emacs
changeset 103589:99f2f3ae1c56
ispell.el: Add `ispell-looking-back' XEmacs compatibility function for `looking-back'
flyspell.el (sgml-mode-flyspell-verify): Use `ispell-looking-back'
| author | Agustin Martin <agustin.martin@hispalinux.es> |
|---|---|
| date | Thu, 25 Jun 2009 11:25:09 +0000 |
| parents | 0af21ded137d |
| children | 6cba3f41d36b |
| files | lisp/ChangeLog lisp/textmodes/flyspell.el lisp/textmodes/ispell.el |
| diffstat | 3 files changed, 29 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jun 25 08:02:34 2009 +0000 +++ b/lisp/ChangeLog Thu Jun 25 11:25:09 2009 +0000 @@ -1,3 +1,11 @@ +2009-06-25 Agustín Martín <agustin.martin@hispalinux.es> + + * textmodes/ispell.el: Add `ispell-looking-back' XEmacs + compatibility function for `looking-back' + + * textmodes/flyspell.el (sgml-mode-flyspell-verify): Use + `ispell-looking-back' + 2009-06-24 Michael Albinus <michael.albinus@gmx.de> * net/tramp-gvfs.el (tramp-gvfs-handle-make-directory): Use `dir'
--- a/lisp/textmodes/flyspell.el Thu Jun 25 08:02:34 2009 +0000 +++ b/lisp/textmodes/flyspell.el Thu Jun 25 11:25:09 2009 +0000 @@ -363,9 +363,9 @@ "Function used for `flyspell-generic-check-word-predicate' in SGML mode." (not (save-excursion (or (looking-at "[^<\n]*>") - (looking-back "<[^>\n]*") + (ispell-looking-back "<[^>\n]*") (and (looking-at "[^&\n]*;") - (looking-back "&[^;\n]*")))))) + (ispell-looking-back "&[^;\n]*")))))) ;;*---------------------------------------------------------------------*/ ;;* Programming mode */
--- a/lisp/textmodes/ispell.el Thu Jun 25 08:02:34 2009 +0000 +++ b/lisp/textmodes/ispell.el Thu Jun 25 11:25:09 2009 +0000 @@ -196,12 +196,13 @@ ;; Improved message reference matching in `ispell-message'. ;; Fixed bug in returning to nroff mode from tex mode. -;;; Compatibility code for xemacs and (not too) older emacsen: - -(eval-and-compile ;; Protect against declare-function undefined in xemacs +;;; Compatibility code for XEmacs and (not too) older emacsen: + +(eval-and-compile ;; Protect against declare-function undefined in XEmacs (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) (declare-function ispell-check-minver "ispell" (v1 v2)) +(declare-function ispell-looking-back "ispell" (regexp &optional limit)) (if (fboundp 'version<=) (defalias 'ispell-check-minver 'version<=) @@ -238,6 +239,21 @@ (setq pending nil)))) return))) +;; XEmacs does not have looking-back +(if (fboundp 'looking-back) + (defalias 'ispell-looking-back 'looking-back) + (defun ispell-looking-back (regexp &optional limit &rest ignored) + "Return non-nil if text before point matches regular expression REGEXP. +Like `looking-at' except matches before point, and is slower. +LIMIT if non-nil speeds up the search by specifying a minimum +starting position, to avoid checking matches that would start +before LIMIT. + +This is a stripped down compatibility function for use when +full featured `looking-back' function is missing." + (save-excursion + (re-search-backward (concat "\\(?:" regexp "\\)\\=") limit t)))) + ;;; Code: (defvar mail-yank-prefix)