From c5b9cfc88078940a631b2239807d8fb1bfaa7685 Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Sun, 4 Dec 2016 01:06:26 +0000 Subject: [PATCH 04/21] Remove unused ispell-looking-back * lisp/textmodes/ispell.el (ispell-looking-back): Remove unused alias. --- lisp/textmodes/ispell.el | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 14a782d..554905c 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -118,21 +118,6 @@ ;; 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)) -- 2.7.4