procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ispell.el: Add ispell-looking-back' XEmacs compatibility function for looking-back'

Browse source 
flyspell.el (sgml-mode-flyspell-verify): Use `ispell-looking-back'
This commit is contained in:
Agustín Martín 2009-06-25 11:25:09 +00:00
parent a71ccf3ac8
commit e26a7bc01c
3 changed files with 28 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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'

4
lisp/textmodes/flyspell.el
View file

@ -363,9 +363,9 @@ property of the major mode name.")
"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 */

20
lisp/textmodes/ispell.el
View file

@ -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 @@ compatibility function in case `version<=' is not available."
(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)