Fixed muse-browse-url for files with position

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

Fixed muse-browse-url for files with position

Bastien Guerry
Hi,

with muse 3.02.01 and Planner (Muse)[1], `muse-visit-link' didn't work
properly when finding a file at point -- at least with the default
function.


308c308
<       (muse-browse-url link)
---
>       (muse-browse-url link other-window anchor)

123c123,125
<         (funcall (cadr entry) url)))))
---
>         (funcall (cadr entry)
> (if anchor (concat url anchor)
>   url))))))


Footnotes:
[1]  That's a strange version name for planner, no?
--
Bastien Guerry

_______________________________________________
emacs-wiki-discuss mailing list
[hidden email]
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss
Reply | Threaded
Open this post in threaded view
|

Re: Fixed muse-browse-url for files with position

Bastien Guerry
Sorry, full patches here:


--- muse-mode.el 2005-11-07 16:22:54.000000000 +0000
+++ muse-mode.el.orig 2005-11-07 16:21:05.000000000 +0000
@@ -334,7 +334,7 @@
       (if (string-match "#" link)
           (setq anchor (substring link (match-beginning 0))
                 link (substring link 0 (match-beginning 0))))
-      (muse-visit-link-default link other-window anchor))))
+      (muse-visit-link-default link))))
 
 (defun muse-browse-result (style &optional other-window)
   "Visit the current page's published result."

--- muse-protocols.el 2005-11-07 16:22:32.000000000 +0000
+++ muse-protocols.el.orig 2005-11-07 16:22:11.000000000 +0000
@@ -120,9 +120,7 @@
     (let* ((proto (concat "\\`" (match-string 1 url)))
            (entry (muse-protocol-find proto muse-url-protocols)))
       (when entry
-        (funcall (cadr entry) url
- (if anchor (concat url anchor)
-   url))))))
+        (funcall (cadr entry) url)))))
 
 (defun muse-resolve-url (url &rest ignored)
   "Resolve URL with the function specified in `muse-url-protocols'."


--
Bastien Guerry

_______________________________________________
emacs-wiki-discuss mailing list
[hidden email]
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss