/[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.70.2.1 by miles, Fri Apr 4 06:20:08 2003 UTC revision 1.70.2.2 by miles, Tue Oct 14 23:51:10 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)
# Line 943  Returns the new status of auto compressi Line 940  Returns the new status of auto compressi
940    
941  (provide 'jka-compr)  (provide 'jka-compr)
942    
943    ;;; arch-tag: 3f15b630-e9a7-46c4-a22a-94afdde86ebc
944  ;;; jka-compr.el ends here  ;;; jka-compr.el ends here

Legend:
Removed from v.1.70.2.1  
changed lines
  Added in v.1.70.2.2

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