mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

* textmodes/org.el (org-rm-props, org-activate-plain-links)

Browse Source 
(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.
This commit is contained in:
Carsten Dominik 2006-10-04 13:13:27 +00:00
parent 82f285648a
commit 4c5e27b5c6
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/textmodes/org.el
View File

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