]> git.eshelyaron.com Git - emacs.git/commitdiff
* textmodes/org.el (org-rm-props, org-activate-plain-links)
authorCarsten Dominik <dominik@science.uva.nl>
Wed, 4 Oct 2006 13:13:27 +0000 (13:13 +0000)
committerCarsten Dominik <dominik@science.uva.nl>
Wed, 4 Oct 2006 13:13:27 +0000 (13:13 +0000)
(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

index c8ecc3df63d564584a75963093432f453de663cc..caca6a6ae7d7f398e26be8401f38dbb5a7b8c89e 100644 (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