Commit 5c6f2f2a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(jka-compr-insert-file-contents): Don't run

after-insert-file-functions, since caller does that.
parent 7a784f27
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment