Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |