martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
after-insert-file-functions, since caller does that.
This commit is contained in:
Richard M. Stallman
1998-06-14 19:01:34 +00:00
parent 7a784f27db
commit 5c6f2f2a47
1 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/jka-compr.el
View File

@@ -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))