[emacs-wiki-discuss] 'planner-set-sym-and-url-regexp' erase 'muse-url-regexp'

[drkm]

  Hi

  It seems that 'planner-set-sym-and-url-regexp', in PlannerMuse,
set 'muse-url-regexp' without reading its initial value:

    (defun planner-set-sym-and-url-regexp (sym value)
      (when (eq sym 'planner-url-protocols)
        (setq planner-url-protocols value)
        (setq muse-url-regexp
              (concat "\\<\\("
                      (mapconcat 'car planner-url-protocols "\\|")
                      "\\):"
                      "[^]["
                      planner-regexp-space
                      "\"'()<>^`{}]*[^]["
                      planner-regexp-space
                      "\"'()<>^`{}.,;]+")))
      (set sym value))

  So if somebody modified its value before, this modification is
then lost.  IMHO, 'muse-url-regexp' would use the same mechanism
than 'planner-url-protocols' which have 'planner-add-protocol':
having a 'muse-add-url' function.

--drkm