[Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el text...

[Agustin Martin Domingo]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Agustin Martin Domingo <agmartin>       09/06/25 11:25:14

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : flyspell.el ispell.el 

Log message:
        ispell.el: Add `ispell-looking-back' XEmacs compatibility function for 
`looking-back'
        
        flyspell.el (sgml-mode-flyspell-verify): Use `ispell-looking-back'

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15729&r2=1.15730
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.144&r2=1.145
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.251&r2=1.252

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15729
retrieving revision 1.15730
diff -u -b -r1.15729 -r1.15730
--- ChangeLog   24 Jun 2009 05:12:51 -0000      1.15729
+++ ChangeLog   25 Jun 2009 11:25:09 -0000      1.15730
@@ -1,3 +1,11 @@
+2009-06-25  Agustín Martín  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/tramp-gvfs.el (tramp-gvfs-handle-make-directory): Use `dir'

Index: textmodes/flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.144
retrieving revision 1.145
diff -u -b -r1.144 -r1.145
--- textmodes/flyspell.el       16 Apr 2009 18:45:25 -0000      1.144
+++ textmodes/flyspell.el       25 Jun 2009 11:25:14 -0000      1.145
@@ -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                                                 */

Index: textmodes/ispell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.251
retrieving revision 1.252
diff -u -b -r1.251 -r1.252
--- textmodes/ispell.el 23 Jun 2009 07:38:27 -0000      1.251
+++ textmodes/ispell.el 25 Jun 2009 11:25:14 -0000      1.252
@@ -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:
+;;; Compatibility code for XEmacs and (not too) older emacsen:
 
-(eval-and-compile ;; Protect against declare-function undefined in xemacs
+(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)