Newsgroups: comp.emacs
Path: utzoo!utgpu!jarvis.csri.toronto.edu!godzilla.ele.toronto.edu!okrieg
From: okrieg@godzilla.ele.toronto.edu ("Orran Y. Krieger")
Subject: fix to dired-compress
Illegal-Object: Bad Reply-To address found by ZMailer on jarvis.csri.toronto.edu:
	okrieg@godzilla.ele.toronto.edu(?missing end of address?)  ;
Message-ID: <8807092234.AA16862@babbage.ele.toronto.edu>
Organization: EECG, University of Toronto
Date: Sat, 9 Jul 88 17:14:09 EDT

The function "dired-compress" was garbled in release 18.50.

The original version was
dired.el:    (message "Compressing %s..." from-fil)e

As is obvious my correction was
me:          (message "Compressing %s..." from-file)

So this is the correct function:

(defun dired-compress ()
  "Compress this file."
  (interactive)
  (let* ((buffer-read-only nil)
	 (from-file (dired-get-filename))
	 (to-file (concat from-file ".Z")))
    (if (string-match "\\.Z$" from-file)
	(error "%s is already compressed!" from-file))
    (message "Compressing %s..." from-file)
    (call-process "compress" nil nil nil "-f" from-file)
    (message "Compressing %s... done" from-file)
    (dired-redisplay to-file)))




-- 

  Orran Krieger
  University of Toronto -- Toronto, Canada

UUCP:	{decvax,ihnp4,linus,utzoo,uw-beaver}!utcsri!godzilla.ele!okrieg