浏览代码

Fix code typo

* lisp/org-datetree.el (org-datetree-find-iso-week-create): Use
  `setq-local' instead of `org-set-local'.
Nicolas Goaziou 9 年之前
父节点
当前提交
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)