|
|
@@ -209,7 +209,7 @@ this function is called. Otherwise, the current major mode menu is used."
|
|
|
(or (not mark-active)
|
|
|
(sit-for (/ double-click-time 1000.0))))
|
|
|
(progn
|
|
|
- (select-window (posn-window (event-start event)))
|
|
|
+ (select-window (posn-window (event-start event)))
|
|
|
(when (not (org-mouse-mark-active))
|
|
|
(goto-char (posn-point (event-start event)))
|
|
|
(when (not (eolp)) (save-excursion (run-hooks 'post-command-hook)))
|
|
|
@@ -689,7 +689,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
(org-mouse-remove-match-and-spaces))))]
|
|
|
)))
|
|
|
((and (org-mouse-looking-at "\\b\\w+" "a-zA-Z0-9_")
|
|
|
- (member (match-string 0) (org-mouse-todo-keywords)))
|
|
|
+ (member (match-string 0) (org-mouse-todo-keywords)))
|
|
|
(popup-menu
|
|
|
`(nil
|
|
|
,@(org-mouse-keyword-replace-menu (org-mouse-todo-keywords))
|
|
|
@@ -874,14 +874,14 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
;; (defun org-mouse-at-regexp (regexp)
|
|
|
;; (save-excursion
|
|
|
;; (let ((point (point))
|
|
|
-;; (bol (progn (beginning-of-line) (point)))
|
|
|
-;; (eol (progn (end-of-line) (point))))
|
|
|
-;; (goto-char point)
|
|
|
-;; (re-search-backward regexp bol 1)
|
|
|
-;; (and (not (eolp))
|
|
|
-;; (progn (forward-char)
|
|
|
-;; (re-search-forward regexp eol t))
|
|
|
-;; (<= (match-beginning 0) point)))))
|
|
|
+;; (bol (progn (beginning-of-line) (point)))
|
|
|
+;; (eol (progn (end-of-line) (point))))
|
|
|
+;; (goto-char point)
|
|
|
+;; (re-search-backward regexp bol 1)
|
|
|
+;; (and (not (eolp))
|
|
|
+;; (progn (forward-char)
|
|
|
+;; (re-search-forward regexp eol t))
|
|
|
+;; (<= (match-beginning 0) point)))))
|
|
|
|
|
|
(defun org-mouse-mark-active ()
|
|
|
(and mark-active transient-mark-mode))
|
|
|
@@ -922,7 +922,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
`((,outline-regexp
|
|
|
0 `(face org-link mouse-face highlight keymap ,org-mouse-map)
|
|
|
'prepend))
|
|
|
- t))
|
|
|
+ t))
|
|
|
|
|
|
(when (memq 'activate-bullets org-mouse-features)
|
|
|
(font-lock-add-keywords
|
|
|
@@ -930,14 +930,14 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
|
|
|
`(("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +"
|
|
|
(1 `(face org-link keymap ,org-mouse-map mouse-face highlight)
|
|
|
'prepend)))
|
|
|
- t))
|
|
|
+ t))
|
|
|
|
|
|
(when (memq 'activate-checkboxes org-mouse-features)
|
|
|
(font-lock-add-keywords
|
|
|
nil
|
|
|
`(("^[ \t]*\\([-+*]\\|[0-9]+[.)]\\) +\\(\\[[ X]\\]\\)"
|
|
|
(2 `(face bold keymap ,org-mouse-map mouse-face highlight) t)))
|
|
|
- t))
|
|
|
+ t))
|
|
|
|
|
|
(defadvice org-open-at-point (around org-mouse-open-at-point activate)
|
|
|
(let ((context (org-context)))
|
Bernt Hansen