]> git.eshelyaron.com Git - emacs.git/commitdiff
Remove unused ispell-looking-back
authorReuben Thomas <rrt@sc3d.org>
Sun, 4 Dec 2016 01:06:26 +0000 (01:06 +0000)
committerReuben Thomas <rrt@sc3d.org>
Tue, 13 Dec 2016 19:43:48 +0000 (19:43 +0000)
* lisp/textmodes/ispell.el (ispell-looking-back): Remove unused alias.

lisp/textmodes/ispell.el

index 14a782d1cec06fe3678bf4259f29d793be3f7b69..554905c1c6590f9a5bd75792541b56ab25ae6f00 100644 (file)
 ;;  Recursive edits (?C-r or ?R) inside a keyboard text replacement check (?r)
 ;;    can cause misalignment errors.
 
-;; XEmacs does not have looking-back
-(defalias 'ispell-looking-back
-  (if (fboundp 'looking-back) 'looking-back
-    (lambda (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)))))
-
 ;;; XEmacs21 does not have `with-no-warnings'. Taken from org mode.
 (defmacro ispell-with-no-warnings (&rest body)
   (cons (if (fboundp 'with-no-warnings) 'with-no-warnings 'progn) body))