/[emacs]/emacs/lisp/jka-compr.el
ViewVC logotype

Diff of /emacs/lisp/jka-compr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.75 by lektu, Tue Feb 4 11:31:40 2003 UTC revision 1.76 by rms, Wed May 28 11:21:36 2003 UTC
# Line 573  There should be no more than seven chara Line 573  There should be no more than seven chara
573                                                    uncompress-args)))                                                    uncompress-args)))
574                        (setq size (- (point) start))                        (setq size (- (point) start))
575                        (if replace                        (if replace
576                            (let* ((del-beg (point))                            (delete-region (point) (point-max)))
                                  (del-end (+ del-beg size)))  
                             (delete-region del-beg  
                                            (min del-end (point-max)))))  
577                        (goto-char start))                        (goto-char start))
578                    (error                    (error
579                     (if (and (eq (car error-code) 'file-error)                     (if (and (eq (car error-code) 'file-error)

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26