X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/d52969e8afaa19ed1acc01f4ff0bb651bf7869a7..77c7bcb1157b405bde1227b20ef5f7ce9a90e689:/lisp/dnd.el diff --git a/lisp/dnd.el b/lisp/dnd.el index 4f70048097..0c33feab1b 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -1,7 +1,6 @@ ;;; dnd.el --- drag and drop support. -*- coding: utf-8 -*- -;; Copyright (C) 2005, 2006, 2007, 2008, 2009, 2010, 2011 -;; Free Software Foundation, Inc. +;; Copyright (C) 2005-2012 Free Software Foundation, Inc. ;; Author: Jan Djärv ;; Maintainer: FSF @@ -161,7 +160,7 @@ Return nil if URI is not a local file." (setq f nil)) f)) -(defun dnd-open-local-file (uri action) +(defun dnd-open-local-file (uri _action) "Open a local file. The file is opened in the current window, or a new window if `dnd-open-file-other-window' is set. URI is the url for the file, @@ -181,7 +180,7 @@ An alternative for systems that do not support unc file names is 'private) (error "Can not read %s" uri)))) -(defun dnd-open-remote-url (uri action) +(defun dnd-open-remote-url (uri _action) "Open a remote file with `find-file' and `url-handler-mode'. Turns `url-handler-mode' on if not on before. The file is opened in the current window, or a new window if `dnd-open-file-other-window' is set. @@ -227,5 +226,4 @@ TEXT is the text as a string, WINDOW is the window where the drop happened." (provide 'dnd) -;; arch-tag: 0472f6a5-2e8f-4304-9e44-1a0877c771b7 ;;; dnd.el ends here