diff lisp/jka-compr.el @ 49597:e88404e8f2cf

Trailing whitespace deleted.

--- a/lisp/jka-compr.el	Tue Feb 04 12:03:59 2003 +0000
+++ b/lisp/jka-compr.el	Tue Feb 04 12:29:42 2003 +0000
@@ -77,9 +77,9 @@
 
 
 ;; ACKNOWLEDGMENTS
-;; 
+;;
 ;; jka-compr is a V19 adaptation of jka-compr for V18 of Emacs.  Many people
-;; have made helpful suggestions, reported bugs, and even fixed bugs in 
+;; have made helpful suggestions, reported bugs, and even fixed bugs in
 ;; jka-compr.  I recall the following people as being particularly helpful.
 ;;
 ;;   Jean-loup Gailly
@@ -117,7 +117,7 @@
   :type 'string
   :group 'jka-compr)
 
-(defvar jka-compr-use-shell 
+(defvar jka-compr-use-shell
   (not (memq system-type '(ms-dos windows-nt))))
 
 ;;; I have this defined so that .Z files are assumed to be in unix
@@ -270,8 +270,8 @@
 
   (signal 'compression-error
 	  (list "Opening input file" (format "error %s" message) infile)))
-			
-   
+
+
 (defcustom jka-compr-dd-program "/bin/dd"
   "How to invoke `dd'."
   :type 'string
@@ -447,7 +447,7 @@
 
 	    (setq temp-file (jka-compr-make-temp-name)))
 
-	  (and 
+	  (and
 	   compress-message
 	   (message "%s %s..." compress-message base-name))
 
@@ -502,7 +502,7 @@
 	  (setq last-coding-system-used coding-system-used)
 
 	  nil)
-	      
+
       (jka-compr-run-real-handler 'write-region
 				  (list start end filename append visit)))))
 
@@ -538,7 +538,7 @@
 	  (unwind-protect		; to make sure local-copy gets deleted
 
 	      (progn
-		  
+
 		(and
 		 uncompress-message
 		 (message "%s %s..." uncompress-message base-name))
@@ -583,7 +583,7 @@
 			    (eq (nth 3 error-code) local-file))
 		       (if visit
 			   (setq notfound error-code)
-			 (signal 'file-error 
+			 (signal 'file-error
 				 (cons "Opening input file"
 				       (nthcdr 2 error-code))))
 		     (signal (car error-code) (cdr error-code))))))
@@ -594,7 +594,7 @@
 	     (delete-file local-copy)))
 
 	  (decode-coding-inserted-region
-	   (point) (+ (point) size) 
+	   (point) (+ (point) size)
 	   (jka-compr-byte-compiler-base-file-name file)
 	   visit beg end replace)
 
@@ -605,7 +605,7 @@
 	     (setq buffer-file-name filename)
 	     (setq jka-compr-really-do-compress t)
 	     (set-visited-file-modtime)))
-	    
+
 	  (and
 	   uncompress-message
 	   (message "%s %s...done" uncompress-message base-name))
@@ -661,11 +661,11 @@
 	  (unwind-protect
 
 	      (with-current-buffer temp-buffer
-		  
+
 		(and
 		 uncompress-message
 		 (message "%s %s..." uncompress-message base-name))
-		  
+
 		;; Here we must read the output of uncompress program
 		;; and write it to TEMP-FILE without any code
 		;; conversion.  An appropriate code conversion (if
@@ -697,7 +697,7 @@
 	    (kill-buffer temp-buffer))
 
 	  temp-file)
-	    
+
       (jka-compr-run-real-handler 'file-local-copy (list filename)))))
 
 
@@ -865,7 +865,7 @@
 		   (eq (nth 2 entry) 'jka-compr)))
 	  (setcdr last (cdr (cdr last)))
 	(setq last (cdr last))))
-    
+
     (setq auto-mode-alist (cdr ama)))
 
   (let* ((ama (cons nil file-coding-system-alist))
@@ -877,7 +877,7 @@
       (if (member entry jka-compr-added-to-file-coding-system-alist)
 	  (setcdr last (cdr (cdr last)))
 	(setq last (cdr last))))
-    
+
     (setq file-coding-system-alist (cdr ama)))
 
   ;; Remove the suffixes that were added by jka-compr.
@@ -888,7 +888,7 @@
 	(push suffix suffixes)))
     (setq load-suffixes (nreverse suffixes))))
 
-      
+
 (defun jka-compr-installed-p ()
   "Return non-nil if jka-compr is installed.
 The return value is the entry in `file-name-handler-alist' for jka-compr."