forked from mirrors/org-mode
Whitespace
This commit is contained in:
parent
56dd882da8
commit
48af653457
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue