瀏覽代碼

org-agenda.el: small indentation fix.

Bastien Guerry 13 年之前
父節點
當前提交
5935f04289
共有 1 個文件被更改,包括 4 次插入4 次删除
  1. 4 4
      lisp/org-agenda.el

+ 4 - 4
lisp/org-agenda.el

@@ -5832,7 +5832,7 @@ could bind the variable in the options section of a custom command.")
 (defun org-agenda-highlight-todo (x)
   (let ((org-done-keywords org-done-keywords-for-agenda)
 	(case-fold-search nil)
-	 re)
+	re)
     (if (eq x 'line)
 	(save-excursion
 	  (beginning-of-line 1)
@@ -5853,13 +5853,13 @@ could bind the variable in the options section of a custom command.")
 	  (add-text-properties
 	   (or (match-end 1) (match-end 0)) (match-end 0)
 	   (list 'face (org-get-todo-face (match-string 2 x)))
-	 x)
+	   x)
 	  (when (match-end 1)
 	    (setq x (concat (substring x 0 (match-end 1))
 			    (format org-agenda-todo-keyword-format
 				    (match-string 2 x))
-			  (org-add-props " " (text-properties-at 0 x))
-			  (substring x (match-end 3)))))))
+			    (org-add-props " " (text-properties-at 0 x))
+			    (substring x (match-end 3)))))))
       x)))
 
 (defsubst org-cmp-priority (a b)