[bongo-devel] Re: Missing x-get-selection, m3u wish

[Dieter Deyke]

address@hidden (Daniel Jensen) writes:

> Dieter Deyke <address@hidden> writes:
>
>> I am trying to use bongo-insert-uri on my emacs running natively on
>> Windows XP, but do get a missing function error for x-get-selection.
>> Could it be that the code using it is X windows specific?
>
> I think I found the bug, but I cannot test it myself. On MS Windows,
> x-get-selection is redefined, but x-get-clipboard is not. Does this
> patch fix the problem for you?
>
> --- bongo-old/bongo.el  2007-01-15 14:15:44.000000000 +0100
> +++ bongo-new/bongo.el  2007-02-03 11:53:21.000000000 +0100
> @@ -6171,7 +6171,7 @@
>                       (let ((primary (x-get-selection)))
>                         (and (bongo-uri-p primary) primary)))
>                  (and (x-selection-exists-p 'CLIPBOARD)
> -                     (let ((clipboard (x-get-clipboard)))
> +                     (let ((clipboard (x-get-selection 'CLIPBOARD)))
>                         (and (bongo-uri-p clipboard) clipboard)))))
>            (uri
>             (read-string (concat "Insert URI"
>
>> BTW, it would be nice to be able to insert .m3u files into a playlist
>> buffer.
>
> You can customize `bongo-custom-backend-matchers' for this. Or maybe
> you would like the m3u files to be handled in a special way?

The patch now generates a different error:

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  
string-match("\\(?:\\`\\([a-zA-Z]\\(?:\\(?:address@hidden&!*\"'(),]\\)\\|\\(?:%[[:xdigit:]]\\{2\\}\\)\\)+\\):\\)"
 nil)
  (if (string-match (eval-when-compile ...) file-name) (progn (match-string 1 
file-name)))
  (when (string-match (eval-when-compile ...) file-name) (match-string 1 
file-name))
  bongo-uri-scheme(nil)
  (null (bongo-uri-scheme file-name))
  (not (null (bongo-uri-scheme file-name)))
  bongo-uri-p(nil)
  (and (bongo-uri-p clipboard) clipboard)
  (let ((clipboard ...)) (and (bongo-uri-p clipboard) clipboard))
  (and (x-selection-exists-p (quote CLIPBOARD)) (let (...) (and ... clipboard)))
  (or (and (x-selection-exists-p) (let ... ...)) (and (x-selection-exists-p 
...) (let ... ...)))
  (let* ((default-uri ...) (uri ...) (title ...)) (list uri title))
  call-interactively(bongo-insert-uri)

In response to .m3u: I was thinking that inserting a .m3u file (a
playlist) would somewhat work just like inserting a directory, so that
it would insert the files referenced in the playlist as individual
files under a playlist heading.

Thanks,
-- 
Dieter Deyke
mailto:address@hidden mailto:address@hidden mailto:address@hidden
Vs lbh pna ernq guvf, lbh unir jnl gbb zhpu gvzr.