From 4c5e27b5c62c59c4678cc2c7fcc80fe6795d679d Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 4 Oct 2006 13:13:27 +0000 Subject: [PATCH] * textmodes/org.el (org-rm-props, org-activate-plain-links) (org-activate-angle-links, org-activate-dates) (org-activate-target-links, org-activate-camels) (org-activate-tags): Add `rear-nonsticky' text property to avoid textproperty keymaps from being active beyond the end of a line. (org-unfontify-region): Also remove `rear-nonsticky' property. --- lisp/textmodes/org.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el index c8ecc3df63d..caca6a6ae7d 100644 --- a/lisp/textmodes/org.el +++ b/lisp/textmodes/org.el @@ -2690,7 +2690,7 @@ Also put tags into group 4 if tags are present.") (make-variable-buffer-local 'org-keyword-time-regexp) (defconst org-rm-props '(invisible t face t keymap t intangible t mouse-face t - mouse-map t) + rear-nonsticky t mouse-map t) "Properties to remove when a string without properties is wanted.") (defsubst org-match-string-no-properties (num &optional string) @@ -3140,6 +3140,7 @@ that will be added to PLIST. Returns the string that was modified." (progn (add-text-properties (match-beginning 0) (match-end 0) (list 'mouse-face 'highlight + 'rear-nonsticky t 'keymap org-mouse-map )) t))) @@ -3150,6 +3151,7 @@ that will be added to PLIST. Returns the string that was modified." (progn (add-text-properties (match-beginning 0) (match-end 0) (list 'mouse-face 'highlight + 'rear-nonsticky t 'keymap org-mouse-map )) t))) @@ -3188,6 +3190,7 @@ that will be added to PLIST. Returns the string that was modified." (progn (add-text-properties (match-beginning 0) (match-end 0) (list 'mouse-face 'highlight + 'rear-nonsticky t 'keymap org-mouse-map)) t))) @@ -3206,6 +3209,7 @@ that will be added to PLIST. Returns the string that was modified." (progn (add-text-properties (match-beginning 0) (match-end 0) (list 'mouse-face 'highlight + 'rear-nonsticky t 'keymap org-mouse-map 'help-echo "Radio target link" 'org-linked-text t)) @@ -3271,6 +3275,7 @@ between words." (progn (add-text-properties (match-beginning 0) (match-end 0) (list 'mouse-face 'highlight + 'rear-nonsticky t 'keymap org-mouse-map)) t))) @@ -3279,6 +3284,7 @@ between words." (progn (add-text-properties (match-beginning 1) (match-end 1) (list 'mouse-face 'highlight + 'rear-nonsticky t 'keymap org-mouse-map)) t))) @@ -3380,6 +3386,7 @@ between words." deactivate-mark buffer-file-name buffer-file-truename) (remove-text-properties beg end '(mouse-face nil keymap nil org-linked-text nil + rear-nonsticky nil invisible nil intangible nil)))) ;;; Visibility cycling -- 2.39.2