mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

Diane Murray <disumu at x3y2z1.net>

Browse Source 
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.
This commit is contained in:
Glenn Morris 2007-11-28 08:28:15 +00:00
parent b55d4a5d1c
commit e05661923e
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/url/ChangeLog
View File

@ -1,3 +1,9 @@
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-15 Richard Stallman <rms@gnu.org>
* url.el (url-retrieve-synchronously): Call delete-process.

13
lisp/url/url-dired.el
View File

@ -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)