🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.emacs
Article #8253

nice addition to dired

#8253
From: MAP
Date: Sat, 07 Jan 1989 21:24
17 lines
870 bytes
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.

;;; dired-exit hook stuff... 1/6/89 erik@mpx2.UUCP
;; 7-Jan-89  MAP@LCS.MIT.Edu do pending deletions before punting
(setq dired-mode-hook 'set-my-dired-keys-hook)

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

;;; command to quit a dired session...
(defun dired-delete-and-exit ()
  "Quit editing this directory."
  (interactive)
  (dired-do-deletions)
  (kill-buffer (current-buffer)))
Technical Details
Message-ID: <8901072124.AA18009@gaak.LCS.MIT.EDU>
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!husc6!mit-eddie!LCS.MIT.EDU!MAP

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!attcan!uunet!husc6!mit-eddie!LCS.MIT.EDU!MAP
From: MAP@LCS.MIT.EDU
Newsgroups: comp.emacs
Subject: nice addition to dired
Message-ID: <8901072124.AA18009@gaak.LCS.MIT.EDU>
Date: 7 Jan 89 21:24:25 GMT
Sender: daemon@eddie.MIT.EDU
Lines: 17