Commit 7ba1d5ae authored by Glenn Morris's avatar Glenn Morris
Browse files

Diane Murray <disumu at x3y2z1.net>

Don't require w3-fetch and w3-open-local.
(url-dired-find-file): Use `find-file'.  Doc fix.
(url-dired-find-file-mouse, url-dired-minor-mode): Doc fix.
parent 472fd4dc
2007-11-28 Diane Murray <disumu@x3y2z1.net>
* url-dired.el: Don't require w3-fetch and w3-open-local.
(url-dired-find-file): Use `find-file'. Doc fix.
(url-dired-find-file-mouse, url-dired-minor-mode): Doc fix.
2007-11-24 Glenn Morris <rgm@gnu.org>
* url-privacy.el (url-device-type): Fix typo.
......
......@@ -24,8 +24,6 @@
;;; Code:
(autoload 'w3-fetch "w3")
(autoload 'w3-open-local "w3")
(autoload 'dired-get-filename "dired")
(defvar url-dired-minor-mode-map
......@@ -41,22 +39,19 @@
(make-variable-buffer-local 'url-dired-minor-mode)
(defun url-dired-find-file ()
"In dired, visit the file or directory named on this line, using Emacs-W3."
"In dired, visit the file or directory named on this line."
(interactive)
(let ((filename (dired-get-filename)))
(cond ((string-match "/\\(.*@.*\\):\\(/.*\\)" filename)
(w3-fetch (concat "file://" (match-string 1 filename) (match-string 2 filename))))
(t
(w3-open-local filename)))))
(find-file filename)))
(defun url-dired-find-file-mouse (event)
"In dired, visit the file or directory name you click on, using Emacs-W3."
"In dired, visit the file or directory name you click on."
(interactive "@e")
(mouse-set-point event)
(url-dired-find-file))
(defun url-dired-minor-mode (&optional arg)
"Minor mode for directory browsing with Emacs-W3."
"Minor mode for directory browsing."
(interactive "P")
(cond
((null arg)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment