Mercurial > hg > xemacs-beta

comparison lisp/dragdrop.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 0784d089fdc9
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
1 ;;; dragdrop.el --- window system-independent Drag'n'Drop support. 1 ;;; dragdrop.el --- window system-independent Drag'n'Drop support.
2 2
3 ;; Copyright (C) 1998 Oliver Graf <ograf@fga.de> 3 ;; Copyright (C) 1998 Oliver Graf <ograf@fga.de>
4 4
5 ;; Maintainer: XEmacs Development Team, Oliver Graf <ograf@fga.de> 5 ;; Maintainer: XEmacs Development Team, Oliver Graf <ograf@fga.de>
6 ;; Keywords: drag, drop, dumped 6 ;; Keywords: mouse, gui, dumped
7 7
8 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
9 9
10 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by 11 ;; under the terms of the GNU General Public License as published by
242 (switch-to-buffer (find-file-noselect 242 (switch-to-buffer (find-file-noselect
243 (substring (car data) 5)))) 243 (substring (car data) 5))))
244 ;; to-do: open ftp URLs with efs... 244 ;; to-do: open ftp URLs with efs...
245 (t 245 (t
246 ;; some other URL, try to fire up some browser for it 246 ;; some other URL, try to fire up some browser for it
247 (if (boundp 'browse-url-browser-function) 247 (if (fboundp 'browse-url)
248 (funcall browse-url-browser-function (car data)) 248 (browse-url (car data))
249 (display-message 'error 249 (display-message 'error
250 "Can't show URL, no browser selected")))) 250 "Can't show URL, no browser selected"))))
251 (undo-boundary) 251 (undo-boundary)
252 (setq data (cdr data))) 252 (setq data (cdr data)))
253 (make-frame-visible frame) 253 (make-frame-visible frame)