From 0510b934544e2f46e60e051a4f83eec5f11b8676 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 26 May 2009 12:56:36 +0000 Subject: Remove yank-handler experiment, in favour of buffer-substring-filters --- isar/isar-syntax.el | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) (limited to 'isar/isar-syntax.el') diff --git a/isar/isar-syntax.el b/isar/isar-syntax.el index 6754dd9f..bef302fa 100644 --- a/isar/isar-syntax.el +++ b/isar/isar-syntax.el @@ -354,23 +354,15 @@ matches contents of quotes for quoted identifiers.") (cons isar-antiq-regexp '(0 'font-lock-variable-name-face t)))) (put 'isar-goals-mode - 'font-lock-extra-managed-props '(invisible sendback yank-handler)) + 'font-lock-extra-managed-props '(invisible sendback)) (put 'isar-response-mode - 'font-lock-extra-managed-props '(invisible sendback yank-handler)) - -;; NB: yank-hanlder makes paste operations ignore invisible text; -;; however, it is still in the ring and messy on the Edit menu. -;(defconst isar-output-invisible-props -; '(face nil invisible t yank-handler (ignore))) -(defconst isar-output-invisible-props - '(face nil invisible t)) + 'font-lock-extra-managed-props '(invisible sendback)) (defun isar-output-flkprops (start regexp end props) `(,(concat "\\(" start "\\)\\(" regexp "\\)\\(" end "\\)") - (1 ',isar-output-invisible-props prepend) + (1 '(face nil invisible t) prepend) (2 ',props prepend) - (,(+ 3 (regexp-opt-depth regexp)) - ',isar-output-invisible-props prepend))) + (,(+ 3 (regexp-opt-depth regexp)) '(face nil invisible t) prepend))) (defun isar-output-flk (start regexp end face) (isar-output-flkprops start regexp end (list 'face face))) -- cgit v1.2.3