Path: utzoo!utgpu!watmath!clyde!att!osu-cis!killer!ames!mailrus!bbn!jr@bbn.com
From: jr@bbn.com (John Robinson)
Newsgroups: comp.emacs
Subject: Re: nice addition to dired
Message-ID: <34290@bbn.COM>
Date: 9 Jan 89 15:17:49 GMT
References: <8901072124.AA18009@gaak.LCS.MIT.EDU>
Sender: news@bbn.COM
Reply-To: jr@bbn.com (John Robinson)
Organization: BBN Systems and Technologies Corporation, Cambridge MA
Lines: 43
In-reply-to: MAP@LCS.MIT.EDU

> I thought your added dired command was a nice idea.  Here's a slightly
> improved version that doesn't lose pending deletions if there are any.

The original article to which this responded was in gnu.emacs.  Here
'tis:

--------
From: erik@mpx2.UUCP (Erik Murrey)
Subject: nice addition to dired
Date: 6 Jan 89 21:02:38 GMT
Organization: MPX Data Systems, Inc. ,  Wayne, PA

Here is a "one-liner" that I added to dired that saves a few dozen
keystrokes, called "dired-exit" that quits a dired session and removes
the buffer.  This is *great* when you are recursing down directories
with dired, and need to pop back without leaving a mess of dired buffers
behind...  I bind it to my "q" key:

Just add this to your .emacs file, (or just add the key definition to
your dired hook, if you already have one...)

;;; dired-exit hook stuff... 1/6/89 erik@mpx2.UUCP
(setq dired-mode-hook 'set-my-dired-keys-hook)

(defun set-my-dired-keys-hook ()
  "My favorite dired vars."
  (local-set-key "q" 'dired-exit)))

;;; command to quit a dired session...
(defun dired-exit ()
  "Quit editing this directory."
  (interactive)
  (kill-buffer (current-buffer)))


...Erik
-- 
Erik Murrey                            /|   //  /~~~~/  |  /
MPX Data Systems, Inc.                / | / /  /____/   |/
erik@mpx2.UUCP                       /  /  /  /        /|  Data Systems, Inc. 
{spl1,vu-vlsi,bpa}!mpx1!erik        /     /  /       /  |====================
/jr
jr@bbn.com or bbn!jr