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

Fix code typo

* lisp/org-datetree.el (org-datetree-find-iso-week-create): Use
  `setq-local' instead of `org-set-local'.
Nicolas Goaziou 10 лет назад
Родитель
Сommit
bc0588fee4
1 измененных файлов с 3 добавлено и 3 удалено
  1. 3 3
      lisp/org-datetree.el

+ 3 - 3
lisp/org-datetree.el

@@ -87,14 +87,14 @@ entries ordered by week instead of months.
 If KEEP-RESTRICTION is non-nil, do not widen the buffer.  When it
 If KEEP-RESTRICTION is non-nil, do not widen the buffer.  When it
 is nil, the buffer will be widened to make sure an existing date
 is nil, the buffer will be widened to make sure an existing date
 tree can be found."
 tree can be found."
-  (org-set-local 'org-datetree-base-level 1)
+  (setq-local org-datetree-base-level 1)
   (or keep-restriction (widen))
   (or keep-restriction (widen))
   (save-restriction
   (save-restriction
     (let ((prop (org-find-property "WEEK_TREE")))
     (let ((prop (org-find-property "WEEK_TREE")))
       (when prop
       (when prop
 	(goto-char prop)
 	(goto-char prop)
-	(org-set-local 'org-datetree-base-level
-		       (org-get-valid-level (org-current-level) 1))
+	(setq-local org-datetree-base-level
+		    (org-get-valid-level (org-current-level) 1))
 	(org-narrow-to-subtree)))
 	(org-narrow-to-subtree)))
     (goto-char (point-min))
     (goto-char (point-min))
     (require 'cal-iso)
     (require 'cal-iso)