[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Dieter Deyke
Subject: [bongo-devel] Re: Missing x-get-selection, m3u wish
Date: Sat, 03 Feb 2007 08:22:52 -0700
User-agent: Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.93 (windows-nt)

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)
  (if (string-match (eval-when-compile ...) file-name) (progn (match-string 1 
  (when (string-match (eval-when-compile ...) file-name) (match-string 1 
  (null (bongo-uri-scheme file-name))
  (not (null (bongo-uri-scheme file-name)))
  (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))

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.

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]