Mercurial > emacs
changeset 22484:661650f543ee
(jka-compr-insert-file-contents): Don't run
after-insert-file-functions, since caller does that.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 14 Jun 1998 19:01:34 +0000 |
| parents | d21d2c3762c1 |
| children | b469abbc9984 |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 16 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-compr.el Sun Jun 14 19:01:06 1998 +0000 +++ b/lisp/jka-compr.el Sun Jun 14 19:01:34 1998 +0000 @@ -613,18 +613,22 @@ (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))