[Emacs-diffs] Changes to emacs/lisp/jka-compr.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/04/03 20:02:47

Index: jka-compr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/jka-compr.el,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -b -r1.96 -r1.97
--- jka-compr.el        8 Jan 2008 20:44:56 -0000       1.96
+++ jka-compr.el        3 Apr 2008 20:02:47 -0000       1.97
@@ -382,7 +382,10 @@
   (let* ((filename (expand-file-name file))
         (info (jka-compr-get-compression-info filename)))
 
-    (if info
+    (if (not info)
+
+       (jka-compr-run-real-handler 'insert-file-contents
+                                    (list file visit beg end replace))
 
        (let ((uncompress-message (jka-compr-info-uncompress-message info))
              (uncompress-program (jka-compr-info-uncompress-program info))
@@ -493,26 +496,23 @@
          ;; That is a little weird, but better to go along with it now
          ;; than to change it now.
 
-;;;      ;; Run the functions that insert-file-contents would.
-;;;      (let ((p after-insert-file-functions)
-;;;            (insval size))
-;;;        (while p
-;;;          (setq insval (funcall (car p) size))
-;;;          (if insval
-;;;              (progn
-;;;                (or (integerp insval)
-;;;                    (signal 'wrong-type-argument
-;;;                            (list 'integerp insval)))
-;;;                (setq size insval)))
-;;;          (setq p (cdr p))))
+        ;; ;; Run the functions that insert-file-contents would.
+        ;; (let ((p after-insert-file-functions)
+        ;;       (insval size))
+        ;;   (while p
+        ;;     (setq insval (funcall (car p) size))
+        ;;     (if insval
+        ;;         (progn
+        ;;           (or (integerp insval)
+        ;;             (signal 'wrong-type-argument
+        ;;                     (list 'integerp insval)))
+        ;;           (setq size insval)))
+        ;;     (setq p (cdr p))))
 
           (or (jka-compr-info-compress-program info)
               (message "You can't save this buffer because compression program 
is not defined"))
 
-         (list filename size))
-
-      (jka-compr-run-real-handler 'insert-file-contents
-                                 (list file visit beg end replace)))))
+        (list filename size)))))
 
 
 (defun jka-compr-file-local-copy (file)