Mercurial > hg > xemacs-beta

comparison lisp/dired/dired-cwd.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;;; dired-cwd.el - Fix a command's current working directory in Tree Dired.
2
3 (defconst dired-cwd-version (substring "!Revision: 1.2 !" 11 -2)
4 "!Id: dired-cwd.el,v 1.2 1991/10/08 15:31:28 sk RelBeta !")
5
6 ;; Copyright (C) 1991 by Sebastian Kremer <sk@thp.uni-koeln.de>
7
8 ;; This program is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 1, or (at your option)
11 ;; any later version.
12 ;;
13 ;; This program is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
17 ;;
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program; if not, write to the Free Software
20 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21
22 ;; LISPDIR ENTRY for the Elisp Archive ===============================
23 ;; LCD Archive Entry:
24 ;; dired-cwd|Sebastian Kremer|sk@thp.uni-koeln.de
25 ;; |Fix a command's current working directory in Tree Dired.
26 ;; |Date: 1991/10/08 15:31:28 |Revision: 1.2 |
27
28 ;; INSTALLATION ======================================================
29 ;;
30 ;; Put this file into your load-path and the following in your ~/.emacs:
31 ;;
32 ;; (autoload 'dired-cwd-make-magic "dired-cwd")
33 ;;
34 ;; You have to load dired-x.el in your dired-load-hook to define
35 ;; function default-directory, or you will not benefit from this
36 ;; package: as long as function default-directory is not defined, the
37 ;; functions wrapped by dired-cwd-make-magic will behave as before.
38
39 ;; EXAMPLE USAGE ======================================================
40 ;;
41 ;; How to fix M-x compile (and grep) to know about Tree Dired's multiple
42 ;; working directories by putting the following lines into your ~/.emacs:
43 ;;
44 ;; (require 'compile)
45 ;; (dired-cwd-make-magic 'compile1)
46 ;;
47 ;; After that, a compilation or grep started in a subdirectory in a
48 ;; Dired buffer will have that subdirectory as working directory.
49 ;;
50 ;; Note you must require 'compile as function compile1 is redefined.
51 ;; You could use a load hook instead by adding the line
52 ;;
53 ;; (run-hooks 'compile-load-hook)
54 ;;
55 ;; at the end of compile.el and setting
56 ;;
57 ;; (setq compile-load-hook '(lambda () (dired-cwd-make-magic 'compile1)))
58 ;;
59 ;; in your ~/.emacs.
60
61
62 ;;;###autoload
63 (defun dired-cwd-make-magic (function)
64 "Modify COMMAND so that it's working directory is the current dired directory.
65 This works by binding `default-directory' to `(default-directory)'s value.
66 See also function `default-directory'."
67 (interactive "aMake work with tree dired (function): ")
68 (if (commandp function)
69 (error "Cannot make interactive functions work for tree dired"))
70 (let ((save-name (intern (concat "dired-cwd-wrap-real-" (symbol-name
71 function))))
72 new-function)
73 (setq new-function
74 (` (lambda (&rest dired-cwd-args)
75 ;; Name our formal args unique to avoid shadowing
76 ;; through dynamic scope.
77 (let ((default-directory
78 (if (fboundp 'default-directory)
79 ;; This is defined in dired-x.el, but dired
80 ;; may not yet be loaded.
81 (default-directory)
82 default-directory)))
83 (apply 'funcall (quote (, save-name)) dired-cwd-args)))))
84 (or (fboundp save-name)
85 (fset save-name (symbol-function function)))
86 (fset function new-function)))