From d0fa71cba7143dfd5eb740a65a4d71d274782310 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 14 Jun 1998 19:01:34 +0000 Subject: (jka-compr-insert-file-contents): Don't run after-insert-file-functions, since caller does that. --- lisp/jka-compr.el | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) (limited to 'lisp/jka-compr.el') diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 0ee24e94c66..23c4eccf674 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -613,18 +613,22 @@ There should be no more than seven characters after the final `/'." (signal 'file-error (cons "Opening input file" (nth 2 notfound)))) - ;; 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)))) + ;; This is done in insert-file-contents after we return. + ;; 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)))) (list filename size)) -- cgit v1.2.1