[Emacs-diffs] Changes to emacs/lisp/url/url-dired.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/url/url-dired.el
diff -c /dev/null emacs/lisp/url/url-dired.el:1.3.4.1
*** /dev/null   Thu Oct 14 08:50:56 2004
--- emacs/lisp/url/url-dired.el Thu Oct 14 08:49:52 2004
***************
*** 0 ****
--- 1,100 ----
+ ;;; url-dired.el --- URL Dired minor mode
+ ;; Keywords: comm, files
+ 
+ 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ ;;; Copyright (c) 1996 - 1999 Free Software Foundation, Inc.
+ ;;;
+ ;;; This file is part of GNU Emacs.
+ ;;;
+ ;;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;;; it under the terms of the GNU General Public License as published by
+ ;;; the Free Software Foundation; either version 2, or (at your option)
+ ;;; any later version.
+ ;;;
+ ;;; GNU Emacs is distributed in the hope that it will be useful,
+ ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;;; GNU General Public License for more details.
+ ;;;
+ ;;; You should have received a copy of the GNU General Public License
+ ;;; along with GNU Emacs; see the file COPYING.  If not, write to the
+ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;;; Boston, MA 02111-1307, USA.
+ 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ 
+ (autoload 'w3-fetch "w3")
+ (autoload 'w3-open-local "w3")
+ (autoload 'dired-get-filename "dired")
+ 
+ (defvar url-dired-minor-mode-map
+   (let ((map (make-sparse-keymap)))
+     (define-key map "\C-m" 'url-dired-find-file)
+     (if (featurep 'xemacs)
+       (define-key map [button2] 'url-dired-find-file-mouse)
+       (define-key map [mouse-2] 'url-dired-find-file-mouse))
+     map)
+   "Keymap used when browsing directories.")
+ 
+ (defvar url-dired-minor-mode nil
+   "Whether we are in url-dired-minor-mode")
+ 
+ (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."
+   (interactive)
+   (let ((filename (dired-get-filename)))
+     (cond ((string-match "/\\(address@hidden):\\(/.*\\)" filename)
+          (w3-fetch (concat "file://" (match-string 1 filename) (match-string 
2 filename))))
+         (t
+          (w3-open-local filename)))))
+ 
+ (defun url-dired-find-file-mouse (event)
+   "In dired, visit the file or directory name you click on, using Emacs-W3."
+   (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."
+   (interactive "P")
+   (cond
+    ((null arg)
+     (setq url-dired-minor-mode (not url-dired-minor-mode)))
+    ((equal 0 arg)
+     (setq url-dired-minor-mode nil))
+    (t
+     (setq url-dired-minor-mode t))))
+ 
+ (if (not (fboundp 'add-minor-mode))
+     (defun add-minor-mode (toggle name &optional keymap after toggle-fun)
+       "Add a minor mode to `minor-mode-alist' and `minor-mode-map-alist'.
+ TOGGLE is a symbol which is used as the variable which toggle the minor mode,
+ NAME is the name that should appear in the modeline (it should be a string
+ beginning with a space), KEYMAP is a keymap to make active when the minor
+ mode is active, and AFTER is the toggling symbol used for another minor
+ mode.  If AFTER is non-nil, then it is used to position the new mode in the
+ minor-mode alists.  TOGGLE-FUN specifies an interactive function that
+ is called to toggle the mode on and off; this affects what appens when
+ button2 is pressed on the mode, and when button3 is pressed somewhere
+ in the list of modes.  If TOGGLE-FUN is nil and TOGGLE names an
+ interactive function, TOGGLE is used as the toggle function.
+ 
+ Example:  (add-minor-mode 'view-minor-mode \" View\" view-mode-map)"
+       (if (not (assq toggle minor-mode-alist))
+         (setq minor-mode-alist (cons (list toggle name) minor-mode-alist)))
+       (if (and keymap (not (assq toggle minor-mode-map-alist)))
+         (setq minor-mode-map-alist (cons (cons toggle keymap)
+                                          minor-mode-map-alist)))))
+ 
+ (add-minor-mode 'url-dired-minor-mode " URL" url-dired-minor-mode-map)
+ 
+ (defun url-find-file-dired (dir)
+   "\"Edit\" directory DIR, but with additional URL-friendly bindings."
+   (interactive "DURL Dired (directory): ")
+   (find-file dir)
+   (url-dired-minor-mode t))
+ 
+ (provide 'url-dired)
+ 
+ ;;; arch-tag: 2694f21a-43e1-4391-b3cb-cf6e5349f15f