Преглед на файлове

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)