[emacs-wiki-discuss] [bug #14337] bug in emacs-wiki-link-url

[anonymous]

URL:
  <http://savannah.nongnu.org/bugs/?func=detailitem&item_id=14337>

                 Summary: bug in emacs-wiki-link-url
                 Project: emacs-wiki, planner, and related modules
            Submitted by: None
            Submitted on: Tue 08/30/05 at 10:06
                Category: emacs-wiki
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open

    _______________________________________________________

Details:

can not generate footer correctly 
because (emacs-wiki-link-url "WikiIndex") eval 
to nil.
fixed as following.



(defun emacs-wiki-link-url (wiki-link)
  "Resolve the given WIKI-LINK into its ultimate URL form."
  (let ((link (emacs-wiki-wiki-link-target wiki-link)))
     (save-match-data
        (cond
         ((emacs-wiki-wiki-url-p link)
          (emacs-wiki-escape-url link))
         ((or (string-match emacs-wiki-image-regexp link)
              (string-match emacs-wiki-file-regexp link))
          link)
+         ((string= link emacs-wiki-index-page)
+          (emacs-wiki-escape-url
+           (emacs-wiki-published-name
+            link (emacs-wiki-page-name))))
         ((assoc (emacs-wiki-wiki-base link)
                  (emacs-wiki-file-alist))
          (if (string-match "#" link)
              (concat
               (emacs-wiki-escape-url
                (emacs-wiki-published-name
                 (substring link 0 (match-beginning 0))
                 (emacs-wiki-page-name)))
               (let ((anchor (substring link (match-end 0))))
                 ;; if it's only a number (or blank), put "anchor-" in
                 ;; front
                 (if (string-match "\\`[0-9]*\\'" anchor)
                     (concat "#anchor-" anchor)
                   (concat "#" anchor))))
            (emacs-wiki-escape-url
             (emacs-wiki-published-name
              link (emacs-wiki-page-name)))))))))







    _______________________________________________________

Reply to this item at:

  <http://savannah.nongnu.org/bugs/?func=detailitem&item_id=14337>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.nongnu.org/