Преглед изворни кода

Fix code typo

* lisp/org-datetree.el (org-datetree-find-iso-week-create): Use
  `setq-local' instead of `org-set-local'.
Nicolas Goaziou пре 10 година
родитељ
комит
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)