home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / dired-delete.el < prev    next >
Encoding:
Text File  |  1991-05-03  |  1.4 KB  |  42 lines
  1. ; From: phs@lifia.imag.fr (Philippe Schnoebelen)
  2. ; Subject: Dired gadget (+ general suggestion)
  3. ; Date: 13 Nov 90 21:03:38 GMT
  4. ; Organization: Lab. LIFIA -- Univ. Grenoble -- France
  5. ; 
  6. ; Here is a little gadget for Dired:
  7. ; 
  8. (defun dired-delete-this-file ()
  9.   "In dired, delete the file named on this line."
  10.   (interactive)
  11.   (let ((buffer-read-only nil)
  12.     (fname (dired-get-filename)))
  13.     (if (not (y-or-n-p (format "Delete file %s " fname)))
  14.     (message "OK, I won't.")
  15.     ;; else, do it !
  16.     (delete-file fname)
  17.     (delete-region (progn (beginning-of-line) (point))
  18.                (progn (forward-line 1) (point)))
  19.     (message "Done"))))
  20.  
  21. I've put:
  22.        (define-key dired-mode-map "\C-d" 'dired-delete-this-file)
  23.  
  24. in my dired-mode-hook. (Admittedly, the choice of \C-d is poor taste. Feel
  25. free to suggest improvements.)
  26.  
  27. Now, you can remove a file from your directory just by hitting \C-d when
  28. you're pointing at it in Dired. 
  29.  
  30.  
  31. I very much prefer this kind of interactive behavior over the usual (in
  32. GnuEmacs) way of marking for deletion and then deleting. A similar case
  33. could be presented for Buffer-List, or VM-summary, ...  It would be nice if
  34. this were added _in_a_consistent_way_ in all relevant Emacs packages. What
  35. do others think ?
  36. --
  37. Philippe SCHNOEBELEN,  LIFIA,  46 Av Felix VIALLET,  38000 Grenoble,  FRANCE
  38.                              email: phs@lifia.imag.fr
  39. "Algebraic symbols are used when you do not know what you are talking about."
  40.  
  41.  
  42.