[Emacs-diffs] Changes to emacs/lisp/textmodes/org.el,v

[Carsten Dominik]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Carsten Dominik <cdominik>      06/10/04 13:13:28

Index: org.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/org.el,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -b -r1.107 -r1.108
--- org.el      29 Sep 2006 07:27:57 -0000      1.107
+++ org.el      4 Oct 2006 13:13:27 -0000       1.108
@@ -2690,7 +2690,7 @@
 (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 @@
       (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 @@
       (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 @@
       (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 @@
          (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 @@
       (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 @@
       (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 @@
         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