Whitespace

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)))