[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el text...
From: |
Agustin Martin Domingo |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el text... |
Date: |
Thu, 25 Jun 2009 11:25:15 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el text...,
Agustin Martin Domingo <=