From 48af653457ec34c29bcb62245c8ea5fc23568e23 Mon Sep 17 00:00:00 2001 From: Bernt Hansen Date: Tue, 16 Dec 2008 11:24:04 -0500 Subject: [PATCH] Whitespace --- lisp/org-mouse.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el index d08899ca3..a849ea2c2 100644 --- a/lisp/org-mouse.el +++ b/lisp/org-mouse.el @@ -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)))