diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-23 19:53:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-23 19:53:39 +0000 |
| commit | 51b699f924c203378e829e295bbcc83c328ead37 (patch) | |
| tree | 92e8b870e3888b569eabbb49bcb162d08a32a09b /lisp | |
| parent | e75f56d903d4344d0e02ad8d45d8713bf3c3f5f2 (diff) | |
| download | emacs-51b699f924c203378e829e295bbcc83c328ead37.tar.gz | |
(jka-compr-insert-file-contents): Run the
after-insert-file-functions.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/jka-compr.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 3247042eb7e..768ed52eecf 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -531,8 +531,15 @@ There should be no more than seven characters after the final `/'") nil uncompress-args)) (setq size (- (point) start)) - (goto-char start)) - + (goto-char start) + ;; Run the functions that insert-file-contents would. + (let ((list after-insert-file-functions) + (value size)) + (while list + (setq value (funcall (car list) size)) + (if value + (setq size value)) + (setq list (cdr list))))) (error (if (and (eq (car error-code) 'file-error) |