[emacs-wiki-discuss] [PATCH] planner-trunk fixes

[Sergey Vlasov]

Hello!

This patch fixes some problems in planner-trunk.el:

 - planner-trunk-tasks was using hardcoded "Tasks" name for the tasks
   section, which breaks when localized names are specified in
   planner-sections;

 - the regexp for day pages in planner-trunk-rule-list was wrong (both
   in the example value and in the custom declaration).

--- planner/planner-trunk.el.trunk-tasks        2005-08-10 22:11:20 +0400
+++ planner/planner-trunk.el    2005-09-03 21:17:37 +0400
@@ -61,7 +61,7 @@
   :prefix "planner-trunk"
   :group 'planner)
 
-(defcustom planner-trunk-rule-list  
`(("`[0-9][0-9][0-9][0-9].[0-9][0-9].[0-9][0-9]'" nil
+(defcustom planner-trunk-rule-list  
`(("\\`[0-9][0-9][0-9][0-9]\\.[0-9][0-9]\\.[0-9][0-9]\\'" nil
                                       ("HomeWork" "WorkStuff"
                                        "EmacsHack\\|PlannerHack")))
   "List of rules for trunking tasks.
@@ -103,7 +103,7 @@ use, it will become obvious why this is 
   :type '(repeat (list
                   :tag "Trunk rule"
                   (choice :tag "Page regexp"
-                          (const 
"`[0-9][0-9][0-9][0-9]\\.[0-9][0-9]\\.[0-9][0-9]'"
+                          (const 
"\\`[0-9][0-9][0-9][0-9]\\.[0-9][0-9]\\.[0-9][0-9]\\'"
                                  :tag "Day pages")
                           (const "." :tag "All pages")
                           (regexp :tag "Regexp"))
@@ -314,7 +314,7 @@ matter what the `planner-trunk-rule-list
           (save-excursion
             (save-restriction
              (run-hooks 'planner-trunk-tasks-before-hook)
-              (when (planner-narrow-to-section "Tasks")
+              (when (planner-narrow-to-section 'tasks)
                 (planner-trunk-delete-non-task-lines)
                (if force
                    (setq rule

-- 
Sergey Vlasov

pgpp89S3JzMgN.pgp
Description: PGP signature