Просмотр исходного кода

org-agenda-with-point-at-orig-entry: Fix body indentation

* lisp/org-agenda.el (org-agenda-with-point-at-orig-entry): Indent
like `org-with-point-at'.

TINYCHANGE
Aaron L. Zeng 3 лет назад
Родитель
Сommit
ac7b8f9d2e
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      lisp/org-agenda.el

+ 1 - 1
lisp/org-agenda.el

@@ -2129,7 +2129,7 @@ argument to `set-category' for each entry it's called against."
 If STRING is non-nil, the text property will be fetched from position 0
 If STRING is non-nil, the text property will be fetched from position 0
 in that string.  If STRING is nil, it will be fetched from the beginning
 in that string.  If STRING is nil, it will be fetched from the beginning
 of the current line."
 of the current line."
-  (declare (debug t))
+  (declare (debug t) (indent 1))
   (org-with-gensyms (marker)
   (org-with-gensyms (marker)
     `(let ((,marker (get-text-property (if ,string 0 (point-at-bol))
     `(let ((,marker (get-text-property (if ,string 0 (point-at-bol))
 				       'org-hd-marker ,string)))
 				       'org-hd-marker ,string)))