diff options
author | Richard M. Stallman <rms@gnu.org> | 1998-06-14 19:01:34 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1998-06-14 19:01:34 +0000 |
commit | d0fa71cba7143dfd5eb740a65a4d71d274782310 (patch) | |
tree | af26f655ec76f084816c64fb1b7bc930e5b23f64 /lisp/jka-compr.el | |
parent | 5519199ee2b2769bcae5dd67759fa414db27acb9 (diff) | |
download | emacs-d0fa71cba7143dfd5eb740a65a4d71d274782310.tar.gz |
(jka-compr-insert-file-contents): Don't run
after-insert-file-functions, since caller does that.
Diffstat (limited to 'lisp/jka-compr.el')
-rw-r--r-- | lisp/jka-compr.el | 28 |
1 files changed, 16 insertions, 12 deletions
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)) |